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the IBM 1410 Processor Operating System using 
IBM 1301 Disk Storage. 

The first section, intended primarily for pro- 
grammers, system analysts, and supervisory per- 
sonnel , describes the components of the operating 
system , operating configurations , control card 
formats, card deck arrangements, programming 
requiremients, and operating-system features and 
limitations . 

The second section, intended for machine room 
personnel, describes step-by-step operating pro- 
cedures. It also contains lists of halts, messages, 
and appropriate corrective actions. Appendices 
describe the off-line print/punch program that can 
be used with the system, important internal control 
tables, and the FORTRAN Relocatable-Program 
Loader. 
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INTRODUCTION 



PURPOSE OF THIS PUBLICATION 

This publication contains information that enables an 
installation to use and maintain the "1410 Processor 
Operating System using 1301 Disk Storage." Also 
included is material that is of specific interest to 
programmers and system analysts. (The "1410 
Processor Operating System using 1301 Disk Stor- 
age" will hereafter be referred to as "POS. ") 

PURPOSE OF POS 

POS comprises an integrated set of programs that 
produce machine -language object programs for the 
1410 Data Processing System from source programs 
written in the Autocoder , Report Program Genera- 
tor (RPG), COBOL or FORTRAN languages. The 
random-access capabilities of 1301 Disk Storage 
are used both for storage of the system and for inter- 
mediate work areas. 

Additional Features and Advantages 

POS also provides the following features and ad- 
vantages: 

1. Additions, deletions, and corrections can 
easily be made to the system. 

2. The user can make additions to the POS 
Library of macros and sub-routines. 

3. Selected sections of the POS Library can be 
printed out. 

4. If the POS is on tape, it can be duplicated. 

5. A uniform IOCS is provided for all programs 
in the system . 

6. All processors for the 1410 Data Processing 
System are stored on a single 1301 Disk Stor- 
age unit. All processors are distributed on 
one reel of magnetic tape, the System Tape. 

7. The user can operate within a wide range of 
machine configurations. Each installation can 
define its own standard operating configura- 
tion. 

8. Operating procedures are simple and operator 
intervention is minimum, 

PREREQUISITES 

To Use POS 

The user should be familiar with the material con- 
tained in the following reference manuals: 



"IBM 1410 Principles of Operation," 

Form A 2 2- 05 26 
"IBM 1301, Models 1 and 2, Disk Storage and 

IBM 1302, Models 1 and 2, Disk Storage with 

IBM 1410 and 7010 Data Processing Systems," 

Form A 22-67 88 



To Write Source Programs 

The user should consult the following publications for 
information on the writing of programs in the source 
language of each processor: 

"IBM 1410 Autocoder," Form C28-0309 
"Report Program Generator for the IBM 1410," 

Form C28-1443 
"Report Program Generator for the IBM 1410 — 
Supplement for 1301 Disk Storage," Form 
J28-0256 
"IBM 1410 Programming Systems; COBOL — 
Additional Specifications," Form J28-0232 
"IBM 1410 FORTRAN," Form J24-1468 
The following publications should be consulted for 
details on IOCS: 

"IBM 1410 Input/Output Control System for Card 

and Tape Systems," Form C28-0334 
"IBM 1410 Input/Output Control System for 1301 

Disk Storage," Form C28-0251 
"IBM 1410 Input/Output Control System for 1405 
Disk Storage," Form J28-0233 

This publication does not discuss any of the material 
included in the above publications. It does, however, 
specify restrictions (if any) imposed by POS that 
must be observed when writing source programs. 



MACHINE REQUIREMENTS 

The following are the minimum machine require- 
ments for using POS: 

40,000 positions of core storage 

Processing Overlap and Priority special features 

1 IBM 1402 Card Read-Punch, Model 2 

1 IBM 1403 Printer, Model 2 

40 cylinders of 1301 Disk Storage (see "Detailed 
Machine Requirements and Considerations"). 

NOTE: Two tape units are required by the Update 
Program. (If control card parameters are on tape, 
a third tape unit is required. ) 
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Options Data for punch and print output can be intermixed 

on one reel of magnetic tape for subsequent off-line 
printing on an IBM 1401 Data Processing System. 
One IBM 729 II, IV, V, VI or 7330 Magnetic Tape If this option is chosen, the data is automatically 

Unit can fill each of the functions of card reading, preceded by a self-loading 1401 program that selec- 

card punching, and printing. tively prints and punches. 



DETAILED MACHINE REQUIREMENTS AND CONSIDERATIONS 



CYLINDER REQUIREMENTS 



POS, as supplied by IBM, requires a minimum of 
40 cylinders of disk storage, grouped and distributed 
as described below. 

The user must specify four separate groups of 
cylinders (see the section, "Creation bf POS — The 
Build Run"), Each group is called a System Area, 
or simply, an area. A minimum of five consecutive 
load-mode cylinders on one module of disk storage 
is needed as System Area 1 for the storage of the 
mandatory programs that comprise POS and any 
load-mode work area required by the system pro- 
grams. The remaining 35 cylinders are move-mode 
areas used for working storage and intermediate 
processing. 

The number of tracks required by each program in 
the POS system are shown in Table 1; the table speci- 
fies the mandatory and optional track requirements 
for the POS system programs. 

It should be pointed out that whenever the IOCS or 
COBOL library is requested, it begins on the first 
track of the next cylinder after the POS system pro- 
grams. For example, if the last track used by the 
last system program is 5231 (CYL 130; TRK 32), the 
first track used by the Library is 5240 (CYL 131; 
TRK 1). 



iSystem 


Tracks 






Op- 


Program 


Required 


Mandatory 


tional 


System Supervisory 


25 




X 




Programs 










Autocoder 


32 




X 




FORTRAN 


61 






X 


COBOL 


96 






X 


RPG 


78 






X 


PRINT 


2 






X 


IOCS library 


132 






X 


COBOL Library 


29 






X 


Working Storage 


120 




X 




Table 1. Disk Track 


Requirements 







possible maximum total of four modules for POS, on 
either or both channels. 

The four areas can be defined for a single module 
of 1301 Disk Storage. However, POS will operate 
most efficiently if the four areas are distributed on 
different modules and over two channels. The two 
areas of 10 cylinders each should be placed, whenever 
possible, on different modules. The four areas may 
be on contiguous cylinders in the same module, but the 
user is always required to specify each of the four 
areas. Figure 1 gives a few examples of possible 
distributions of the System Areas. 



Channel 1 



Module 1 




SAl 5 Cyl 
SA2 15 Cyl 
SA3 10 Cyl 
>A4 10 Cy; 





Module 2 




Channel 2 



Module 3 





Module 4 




System Area 1 (SAl) = POS Storage--5 Cylinders 

System Areas 2, 3, 4 (SA2, 3, 4) - Working Storage--35 Cylinders 

Figure 1. Examples of Distribution of Systemi Area 



FORMAT TRACK REQUIREMENTS 



The 35 cylinders used for working storage and inter- 
mediate processing are specified in three additional 
System Areas. These must be specified as areas of 
15, 10 and 10 cylinders each. These three areas may 
be placed on three additional disk modules, making a 



The format tracks for all POS cylinders must be 
defined as full tracks, i.e. , one record for each full 
track. The cylinders that are used for storage of 
POS must be set to the LOAD mode (2,165 characters 
per track) before POS is loaded into disk storage. 



Detailed Machine Requirements and Considerations 
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The 35 cylinders of working storage must be set to 
the MOVE mode (2,800 characters per track) before 
a source program is processed. 

To set the format tracks, it is suggested that the 
user employ the Format Track Generation and Home 
Address and Record Address Generation programs 
described in "Utility Programs for 1301 Disk Stor- 
age, " Form C28-0279. If these programs are used, 
the home address and record address must be the 
same as specified in the System Area CONFG cards 
specified in this publication. 

NOTE 1: If format tracks are not set correctly, un- 
predictable errors can occur (e.g. , looping, invalid 
output, and unexplained halts). 

NOTE 2: The Format Track Generation and Home 
Address and Record Address Generation programs, 
as supplied, place "00" in the HA2 fields. 

USE OF ADDITIONAL CYLINDERS TO EXPAND 
SYSTEM FUNCTIONS 

An installation may require more disk-storage cyl- 
inders than are required by the POS supplied by 
IBM. 

The minimum requirement for System Area 1 is 
five cylinders . To ensure that System Area 1 can 
accommodate all system programs while retaining 
its ability to assemble large source programs , how- 
ever, the use of 15 cylinders is recommended. 
Conditions that may arise during program assembly 
if the capacity of System Area 1 is exceeded are 
listed in the "Programming Considerations" section 
of this manual under "Program Assembly Error 
Conditions." 



In addition , if the user adds subroutines to the 
System Library, one additional cylinder for System 
Area 1 should be allowed for each 1,000 statements 
added. For example, if 15 cylinders have been as- 
signed for System Area 1 and 2 , 000 statements are 
to be added to the System Library, the allocation 
for System Area 1 should be increased to 17 cylinders. 

The 35 cylinders designated as working storage 
(System Areas 2, 3, and 4) are normal for creation 
of object programs that produce up to 8,400 lines 
of print on the autocoder listing (equivalent to object 
programs requiring approximately 40,000 to 80,000 
core-storage positions). If the user's program ex- 
ceeds this range, one additional cylinder for each 
work area must be allowed for each 4, 000 positions 
needed above this range; however, when additional 
cylinders are added to work areas , one additional 
cylinder must be specified for each of the three 
work areas. Referring to Figure 1, if the user re- 
quires 4,000 positions above the specified range, 
System Areas 2,3, and 4 should be defined to con- 
tain 16, 11, and 11 cylinders, making a total of 38 
cylinders. 

USE OF ADDITIONAL CORE STORAGE TO EXPAND 
SYSTEM FUNCTIONS 

POS requires that the 1410 configuration have a 
minimum of 40, 000 positions of core storage. If 
there are more positions available, the Autocoder 
and COBOL processors will take advantage of this 
increased capability by reserving larger areas for 
tables. Processing time, therefore, may be reduced 
for these two processors. 



GENERAL CONSIDERATIONS — POS 



SYSTEM PROGRAMS 

The term "System Program" refers to any of the 
programs forming the Processor Operating System 
(Figure 2). These programs are described below. 
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Figure 2, The Processor Operating System 

Sj^stem Supervisory Programs 

The System Supervisory Programs control the various 
functions of POS. There are seven System Super- 
visory Programs: System Control Program, System 
Load Program, Tape Update Program, Disk Update 
Program, Print Program, Input Program and Out- 
put Program: . 

S ystem Control Program: The System Control Pro- 
gram is the central control program of POS. Speci- 



fically, under the direction of control cards supplied 
by the user, it selects processors, performs error 
checking, provides transition between the various 
phases of POS, checks tape labels, provides IOCS 
for all other phases, and determines tape assign- 
ments. 

System Load Program: The System Load Program , 
under the direction of control cards supplied by the 
user, selects and places into disk storage the sys- 
tem programs of POS. 

Tape Update Program: The Tape Update Program 
contains routines that update the system programs. It 
is used to make corrections, additions, and deletions 
to the POS System Tape. This program requires that 
the POS be on the System Tape. 

Print Program: The Print Program, under the di- 
rection of control cards, prints out selected sections 
of the System Library. 

Input Program: This program reads in all input data 
to be processed by the individual system programs. 

Output Program: This program performs all output 
functions for all system programs except the Print 
Program, 

Disk Update Program: This program performs the 
functions required for the maintenance of POS on 
the disk itself. In many respects it is similar to 
the Tape Update Program. 



System Library 

The System Library consists of IOCS subroutines 
and COBOL subroutines. The user can also add his 
own subroutines. 



Processors 

A processor is a machine -language program that 
performs all the functions necessary to transform a 
source program into the required object program. 
The following processors are System Programs in 
POS: 

A. Autocoder C. COBOL 

B. RPG D. FORTRAN 

Note that the final phase of the RPG, COBOL, and 
FORTRAN processors consists of program assembly 
and macro-expansion by the Autocoder Processor. 
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CREATION OF POS ~ THE BUILD RUN 



GENERAL 

As supplied by IBM, all system programs are on a 
single reel of magnetic tape — the System Tape — 
which is divided into two files. The first file is in 
card-image form, and the second is blocked three 
card records to one. The first file contains the 
Process Selection Phase, Tape Update Program, 
Load Disk, and the CONFG and GREAT card package. 
The second file contains the remainder of the System 
phases and the Library, 

The Build Run is used to create a POS for the 
user's particular requirements. The user places 
into disk storage only those system programs that 
he selects from the System Tape. For example, a 
commercial installation may not use FORTRAN, but 
may require the other three processors. The user 
indicates, through control-card entries, that he 
requires only the Autocoder, RPG and COBOL 
processors. The Sytem Load Program builds a POS 
with these three processors and omits the FORTRAN 
processor. These choices are indicated to the 
System Load Program by means of "GREAT" con- 
trol-card entries. 

The user can also set up his standard operating 
configuration during the Build Run. The parameters 
which determine the standard operating configura- 
tion are specified through CONFG control-card 
entries. 

Standard Operating Configuration 

By means of the Build Run, the user can specify 
parameters that set up the standard operating con- 
figuration for his installation. These specify such 
things as the unit from which his source language 
programs will be read during a processor run, the 
location of other input/output devices, whether or 
not header labels are to be checked, the size of the 
object machine, and whether the object program is 
to be written in relocatable form. 

During a processor, maintenance or auxiliary run, 
the user simply places his input information into a 
preassigned unit and keys in the proper start in- 
structions. 

POS allows the user to change the standard oper- 
ating configuration for any run simply by use of the 
same type of control cards that were used to set up 
the standard operating configuration. For example, 
if the standard operating configuration requires that 
all source -language input data is to be read in from 
tape unit number 8 on channel 1, and a particular 
source language program is on cards, then the user 



can temporarily change the standard operating con- 
figuration by specifying that the source input deck 
be read in from the card reader for this one run by 
means of control cards included with this source- 
language program, 

NOTE 1: The System Tape supplied by IBM also 
contains parameters that determine a standard oper- 
ating configuration. See "Standard Operating Con- 
figuration on System Tape Supplied" in this section 
of the manual. 

NOTE 2: The user can also specify the standard 
operating configuration by means of the Update Run 
(see the section, "Update Run"). 



Card Oriented Systems 

If an installation does not have a magnetic tape unit 
attached to its 1410 system, the System Tape data 
must be transferred into cards by means of periph- 
eral equipment. The user then inserts the control 
cards described below into the deck and proceeds as 
stipulated in the Operator's Section of this manual. 

CONTROL CARDS 

Three general types of control cards are required by 
the System Load Program: GREAT cards, that 
specify the system programs wanted; CONFG cards, 
that specify the standard operation configuration; 
and Definition cards, that define sections of the 
System Tape file. The first two card types are 
supplied by the user; the last type is inserted in the 
System Tape at the required places. 

GREAT Cards 

GREAT cards are used to specify which of the 
"optional" system programs of the System Tape are 
to be included in the POS being built. An "optional" 
system program (see Figure 3) must be specified 
in the operand field of a GREAT card to have it 
included in the user's system. If the operand field 
does not specify the inclusion of an optional pro- 
gram, then this program will be omitted. 



System Control Program 

In order to include the System Control Program in 
the user's system, all GREAT cards must have the 
operand "1301." 
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PRINT 


System Control Program 


1301 



LIBRARY SECTION 


OPERAND 


COBOL 
Instructions and Subroutines 


COBOLM 


IOCS 
Instructions and Subroutines 


IOCS 


Users 
Instructions and Subroutines 


USER, c 

or 
USER, cu 

The first operand is used if the 
source statements are on cards, 
"c" is the number of the chan- 
nel to which the card reader is 
connected. 

The second operand is used if 
the source statements are on 
tape, "cu" represents the chan- 
nel and unit number, respectively, 
of the tape unit from which the 
source data will be read. 



Figure 3. Optional System Elements and Their GREAT Card Operands 
Optional System Programs 

Figure 3 lists the optional system programs and 
indicates the operands that must be placed in the 
operand field of a GREAT card. (To make the list 
complete for ready reference, the operands required 
for the System Control Program are included in 
Figure 3. ) The use of the GREAT card and the other 
control cards necessary for the inclusion during a 
Build Run of user macro-instructions in the POS on 
disk storage is outlined in the "Kbrary" section of 
this manual under "Inclusion of User Routines at 
POS Greation." 

All other programs on the System Tape are auto- 
matically included in every POS built by the user. 

The operands selected can be written in any order 
in the operand field of the GREAT card with a comma 
placed betvi^een each entry. More than one GREAT 
card can be used. 
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GREAT Gard Examples 



Figures 4 through 6 show some examples of this 
control card. 

The sample GREAT card coding shown in Figure 
4 specifies that the POS to be built contains the 
GOBOL processor, the FORTRAN processor , the 
Print Program, the library section of GOBOL sub- 
routines , user subroutines to be read in from Tape 
Unit Number 5 on Ghannel 1, and the System Gon- 
trol Program. Note that the Autocoder Processor 
is not optional; it is automatically included. 
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Figure 5 

The card shown in Figure 5 specifies that the POS 
to be built contains the FORTRAN Processor and 
the System Gontrol Program. 
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Figure 6 

This sample GREAT card (Figure 6) requests the 
RPG Processor, specifies that user supplied sub- 
routines are to be read into the Library from a card 
reader on channel 1, and requests the System Gon- 
trol Program. 

GONFG Gards 

GONFG cards define the standard operating config- 
uration. One card from each, of the types shown in 
Figure 7 must be included in the input packet for the 
Build Run or a Tape Update Run. 

NOTE: The user can change the standard operating 
configuration during a processor or maintenance and 
auxiliary run by including the appropriate GONFG 
cards in the control packet for these runs. ^The 
only exception is the GONFG card that specifies 
SYSAREAl (this card specifies the cylinders on 
which the POS is stored and may be used only on a 
Build or Tape Update Run). 
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Creation of POS ~ The Build Run 
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INITINPT 

INPTELEM 

PRINTELEM 

PUNCHELEM 

HDRCHECK 

SUPPRESS 

MACHSIZE 

OBJSIZE 

SYSAREAl 
SYSAREA2 
SYSAREA3 
SYSAREA4 

RELOCATE 



Figure 7. CONFG Card Types 

Initial Input Unit 

This CONFG card specifies the input device from 
which CONFG cards (if any) are to be read to change 
the standard operating configuration prior to a proc- 
essor, maintenance, or auxiliary run. The two for- 
mats of this CONFG card are shown in Figures 
8 and 9. 
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Figure 8 

The format in Figure 8 specifies that the CONFG 
cards are on tape. The "c" represents the channel 
number of the tape unit, the "u" represents a digit 
specifying the unit number, the "h" represents a 
digit that specifies whether or not the tape has a 
header label ("0" if there is no label, "1" if there is 
a label); the "parity" entry can be either "ODD" or 
"EVEN." 
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Figure 9 



This format (Figure 9) specifies that the CONFG 
card data is on cards . The "c" represents the channel 
to which the card reader is attached. 



Source Input Unit 

This card specifies the input device from which the 
source program will be read. The three formats of 
this card are illustrated in Figures 10 through 12. 
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/,<?.V, , 




0,2, 


1 
1 1 1 > 1 1 > ) 1 




, ,,, , ,,,' ( 



Figxare 10 

This format (Figure 10) specifies that the source 
language program is in card-image form on tape. 
The operand intries are the same as those shown for 
Figure 8. 



Line 
3 5 


Label 
6 15 


Operation 
16 20 


21 


26 


30 


« 


0, 1, 
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, . .( 



Figure 11 

This format (Figure 11) specifies that the source 
language program is on cards to be read in from the 
card reader on channel "c." 
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'.. ^.n.i . -t, i J-^fup i. „ 



Figure 12 

This format (Figure 12) specifies that the source 
language program is in disk storage: "c" represents 
the channel number, "0" is the access mechanism 
number, "m" represents the module, "tttt" repre- 
Isents the beginning track number, and "ZZ" repre- 
sents Home Address 2. 

Print Unit 

This card specifies the device on which the object 
program listing is to be placed. The three possible 
formats for this are shown in Figures 13 through 15. 
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Figure 13 

This format (Figure 13) specifies that the listing 
is to be on tape. The operand entries are the same 
as shown for Figure 8, except for parity. 
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Figure 14 

This format (Figure 14) specifies that the listing 
is to be on the printer attached to channel "c." 
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Line 

|3 51 



0, I , 



0,2 
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Operation 
IJ go 
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Figure 15 

This format (Figure 15) specifies that the listing 
is to remain in disk storage. The operand entries 
are the same as shown for Figure 12. 

Punch Unit 

This card specifies the device on which the object 
program is to be placed. The three formats are 
shown in Figures 16, 17, 18. 
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Figure 16 

The format shown in Figure 16 specifies that the 
object program is to be placed on tape. The variable 
operand entries "c," "u," "h," and "parity" are the 
same as shown for Figure 8, €;xcept for parity, "r" 
represents a digit that specifies whether or not the 
tape is to be rewound after the object program is 
placed on it: "1" specifies that the tape is to be 
rewound after each object program is placed on it; 
any other character (including blank) specifies that 
the tape is not to be rewound. 
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Figure 17 

This format (Figure 17) specifies that the object 
program is to be punched into cards using the punch 
attached to channel "c. " 
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Figure 18 

This format (Figure 18) specifies that the object 
program is to remain in disk storage. The operand 
entries are as discussed for Figure 12. 



Header Label Checking 

The user CEin have the System Control Program check 
standard IBM 1410 header labels without tape marks 



of all input tapes. The format of this card is shown 
in Figure 19. 
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Figure 19 



In Figure 19, the operand "0" indicates no header 
label checking, "1" specifies that tape labels are to 
be checked. 

Suppression of Punch or Print Output 

The user can have the POS suppress either punch or 
print output by means of the card shown in Figure 20. 
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Figure 20 

The operand of the card shown in Figure 20 can be 
"0" for no suppression, "1" to suppress punch out- 
put, or "2" to suppress print output. 

Processor Machine Size 

This card is used to specify the number of core- 
storage positions of the machine on which the proc- 
essor run will take place. (See "Processor Runs.") 
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Figure 21 

The operand in Figure 21 can be "3" for a 40,000- 
position system, "4" for a 60, 000-position system, 
or "5" for an 80, 000-position system. 

Object Machine Size 

This card specifies the number of core -storage loca- 
tions of the system on which the object program will 
be run. 
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Figure 22 
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Form C28 -0287-1 
Page Revised 11/9/64 
By TNLN28-1186 

The operand entry in Figure 22 can be "1" to 
specify a system with 10,000 positions, "2" for 
20,000 positions, "3" for 40,000 positions, "4" for 
60,000 positions, or "5" for 80,000 positions. 
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Figure 24 



POS System Area 

These four cards define the system areas required 
by POS. The SYSAREAl card specifies the cylinders 
on which the POS built by the user is to be stored. 
The other three cards specify working storage (see 
Figure 1) . The formats for these cards are shown 
in Figure 23. 

NOTE: All four of these cards are required even 
though all System Area cylinders are contiguous on 
one module. 



Line 
3 51 



Label 



Operation 
!6 20 



S.V.SQ.f^.gi^.i 



s.y,.';.fl,g.f!fl,3., 



S.Y,S.fl,<?.£l/?.3, 



sy.s.M£Af. 



C.Ct/V.F'.G 



C0 - MF, 6 



C.&.N.F.G 



C^\N,f:G 



iL 



_i5_ 



_3£- 



c , ^ . ^ . £f .f^ ^J , ^ .>.|, 



c.<^,/l|.-f,-P.-f,,,.y,g,^.yy 



cfl./n.f.-f.f.yJ.^.j.y.y, 



^ ,0./1,f. f ,f> ,J ,S, j ,^^i 



_l L. 



Figure 23 



The operand entries (Figure 23) are "c" for the 
channel number, "0" for the access mechanism, 
"m" for the module number, "fff" for the beginning 
cylinder number, "gg" for the number of cylinders 
(01-99) in this area, and "ZZ" for HA2. 

NOTE: The operand entry for HA2 can contain more 
than two characters. If so, only the first two char- 
acters will be used by POS. 



The operand of the card shown in Figure 24 is "0" 
if the object program is not to be relocatable, or "1" 
if the object program is to be relocatable. 



Standard Operating Configuration on System Tape 
Supplied 

The System Tape, as supplied by IBM, contains 
parameters that define a "standard operating con- 
figuration," except for SYSAREAl through SYSAREA4 
assignment which must always be supplied by the 
user. Figure 25 shows that operating configuration 
on the System Tape as supplied. The user may 
create this configuration through the use of corre- 
sponding CONFG cards, or may use other CONFG 
card parameters as desired; but in either case a 
complete set of CONFG cards is required. 



OPERATING CONFIGURATION 


STANDARD AS SUPPLIED 


Initial Input Unit 


Card Reader, Channel 1 


Source Input Unit 


Card Reader, Channel 1 


Print Unit 


Printer, Channel 1 


Punch Unit 


Punch, Channel 1 


Header Label Checking 


No Checking 


Suppression of IHinch and/ or 


No Suppression 


Print Output 




Processor Machine Size 


40, 000 positions 


Object Machine Size 


10, 000 positions 


POS System Areas 


Not Supplied 


Relocation 


No Relocation 



Figure 25 



Relocation 

This card specifies whether or not the object pro- 
gram is to be relocatable. 



THE BUILD RUN DECK 

The user arranges the control cards as shown in 
Figure 26. 
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/I 



Library 



Print 



/Z 



Disk Update 



RPG 



COBOL 



FORTRAN 



Autocoder 



Output Phase 



Input Phase 



ZL 



Run Control 



Card-Tape I/O 



ZL 



System Control 



Systems Loader 



CREAT and 
CONFG Cards 



Load Disk 



Tape Update 



Process 
Selection 



Six Card 
Loader 



_J/ 



Figure 26, Build Run Deck 
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PROCESSOR RUNS 



GENERAL 

During a processor run, source language statements 
are translated into the required machine-language 
object program. The POS controls the selection of 
the required processor, performs input and output 
functions for the processor, and performs error 
checking and correction. 

The user supplies the POS with control cards that 
identify the processor required (the RUN card) and 
indicate the end of each source program (the EOJ 
card). These cards are described below. 

CONFG cards (see "The Build Run") can be in- 
cluded with each source program if the user desires 
to temporarily modify the standard operating con- 
figuration. 

The user can, when using the POS, batch his jobs 
together so that many source language programs 
are translated during a single- machine run. If jobs 
are batched, the proper processor will be selected 
for each job, CONFG cards can be included with 
each source program to modify the standard oper- 
ating configuration. 

CONTROL CARDS 

The control cards used for a processor run are 
described below. 

RUN Card 

The RUN card signifies to the System Control Pro- 
gram the type of run requested. It is placed before 
each source program. 



EOJ Card 

The last card of each source program should be 
followed by an EOJ card (Figure 28). 
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Figure 28 

(If the EOJ card is omitted, the System Control 
Program will process all cards up to the next RUN 
card or until an end-of-file condition occurs.) 

AUTOCODER CONSIDERATIONS 

General 

It is assumed, in the material that follows, that the 
programmer is thoroughly familiar with the material 
contained in the IBM 1410 Data Processing System 
Bulletin "Autocoder: Preliminary Specifications," 
Form J24-1433. 

The Autocoder Processor treats all cards between 
the AUTOCODER RUN card and the END card as a 
single source program. (The EOJ card is used by 
the POS.) 

It is recommended that the first card of the source 
program deck (immediately following the RUN card) 
be a JOB card. A JOB card inserted at this place 
will cause an identifying header line to be printed on 
each page of the assembly listing. If the RUN card 
is not followed by a JOB card, then the processor 
will use a dummy JOB card. Additional JOB cards 
inserted into the source deck will perform the func- 
tions described in the Autocoder bulletin. 
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Figure 27 

Figure 27 shows the allowable formats of the RUN 
card. (The Print card is included in Figure 27 so 
that the user has a complete table of all RUN cards 
that may be required under the POS.) Operands, if 
any, for each of the above cards are specified in the 
discussions on each of the individual processors 
included in this section. 



END Cards 

The END card is necessary to indicate the end of 
each source program and to provide the initial entry 
point for each program (a branch to the first instruc- 
tion to be executed after the resulting object program 
has been loaded during an object run). The EOJ 
card, required by the Input Program of the POS, can 
be combined with the END card as shown in Figure 
29. 
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Figure 29 

In Figure 29, START is a label representing the 
entry point of a program. 
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The source deck will also be terminated by an 
EOJ card, a RUN card for the next program, or an 
end-of-file condition. That is, the END card may 
be omitted and the program will process properly 
with one of the above indicating the end of the source 
program. Under these conditions, a dummy END 
card is created by the processor, but an initial entry 
point will not be provided. 



The incomplete EQU table contains all EQU state- 
ments that are: 

1. Undefined 

2. At a level of indirectness of 2 or higher while 
being incomplete at the point where they appear 
in the source deck. For example, in Figure 31, 
the first statement would fit this criterion and 
thus would enter the incomplete EQU table. 



CTL Cards 



CTL cards will be treated as Comment cards. Con- 
trol functions under the POS are performed by 
CONFG cards. 

LOAD Cards 



A EQU B 
B EQU C 

C DCW #5 



A LOAD card may be inserted anywhere within the 
source program deck. This will result in one of 
the following conditions depending upon the output 
options specified in POS for the source program: 

1. If the object program is punched in cards, the 
standard IBM nine -card load program will precede 
the object-program deck. 

2. If the object program is written on magnetic 
tape, the standard IBM nine-card load program will 
precede the object program on tape. 

Restrictions 

The following restrictions apply when the Autocoder 
Processor is run within the POS: 

1. Extra listings are not provided. 

2. The ORG ADDR, S statement is not imple- 
mented. 

3. The Processor has the following maximum 
table limits. 



Machine Size 


60, 000 


80, 000 


(Core Storage Positions) 40, 000 


Literal Table 






(Literals) 500 


1,800 


3,100 


Incomplete EQU Table 


120 


120 


(Incomplete EQU Statements) 120 



Figure 30 

The literal table contains all literals plus all in- 
complete EQU statements. Each incomplete EQU 
statement occupies the space of three literals. The 
number of incomplete EQU statements can be mini- 
mized by placing the EQU statements in the source 
program so that they are defined as they are 
processed. 



Figure 31 



Autocoder Run Deck Setup 



Figure 32 shows the Autocoder Deck Setup. 
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/ 




/ 

Source Program 
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AUTOCODER RUN 
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Bootstrap Routine 







Figure 32. Autocoder Deck Setup 



RPG CONSIDERATIONS 



General 

It is assumed, in the material that follows, that the 
programmer is thoroughly familiar with the IBM 
1410 Data Processing System Bulletins, "Report 
Program Generator for the IBM 1410: Preliminary 
Specifications," Form J24-1433, and "Report Pro- 
gram Generator for the IBM 1410 — Supplement for 
1301 Disk Storage," Form J28-0256. 

The RPG source deck must start with an RG con- 
trol card and must end with an asterisk card. The 
POS requires that the RPG RUN card precede this 
deck and that an EOJ card follow. 



Processor Runs 
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Four asterisk cards must be inserted at the fol- 
lowing places within the source program: between 
input specification cards and data specification 
cards; between the data specification cards and the 
calculation specification cards; between the calcula- 
tion specification cards and the format specification 
cards; and following the format specification cards. 

If a conversion routine is written in Autocoder 
language, it must be placed immediately behind the 
RG control card and it must be followed by a double 
asterisk card. 

NOTE: There is the possibility of a loop with a no- 
record-found message (40151 NRF — see list of 
Halts, Messages and Corrective Actions for POS 
runs) occurring during a RPG compilation. This 
can be caused by the asterisk card following the 
input specification cards not being in its proper 
place. 

The processor searches for a resulting-condition 
punch in column 43 of the input specification cards, 
and, if these are not previously terminated by the 
asterisk card, the processor will often erroneously 
read the entire deck without encountering another 
column 43 punch. If the NRF message occurs, the 
deck should be examined for proper ordering. 

Assembly Option 

Usually the RPG Run will result in an assembly 
listing by Autocoder and an object program deck. 
The user has the option of specifying that the- 
processor compile only the Autocoder source pro- 
gram. 

This option is selected by placing an "H" in column 
3 of the RG cqntrol card. 

Suppression of Punch and/or Print 

The options to suppress punch and/or print output as 
stated in column 4 of the RG control card are no 
longer valid. These options are controlled, under 
POS, by CONFG-card entries. 

RPG Run Deck Setup 

Figure 33 shows the RPG Deck Setup. 

COBOL CONSIDERATIONS 
General 



Bulletin titled, "COBOL-Additional Specifications," 
Form J28-0232. Itis assumed thatthe programmer is 
familiar with the contents of these publications. 

To process a COBOL source program, POS re- 
quires a RUN card (COBOL RUN) immediately pre- 
ceding the source program deck and an EOJ card 
immediately following the source program deck. All 
statements (cards) between these two POS control 
cards will be treated by the processor as part of the 
source program. The omission of the EOJ card causes 
the Processor System to recognize either an end-of- 
file condition on the input unit or the RUN card of the 
following job. 



EOJ 



* Card 



7^ 



Format Specs 



* Card 



Calculation Specs 



* Card 



Data Specs 



* Card 



Input Specs 



DISK Card 



Conversion Routine 



RG Card 




/ 



/ 



[RPG RUN 



CONFG Cards '—I 



Figure 33. RPG Deck Setup 



Specifications for preparing source language pro- 
grams in the COBOL language are contained in the 
"IBM COBOL General Information Manual," Form 
F28-8053, and the 1410 Data Processing Systems 



COBOL Run Options 

The COBOL processor run normally results in a full 
COBOL compilation and Autocoder assembly. Out- 
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put consists of the COBOL soui:-ce program listing 
(including the cross reference dictionary and diag- 
nostic messages), the Autocoder listing, and the ob- 
ject program deck. Placing the operand AUTOCODER 
in the COBOL RUN card (col 21) has the same effect 
on the processor run as leaving the operand field 
blank. The user can alter the processor run by 
placing one of the following operands in the COBOL 
run card. 

1, DIAGNOSTIC — This operand will cause termi- 
nation of the run after diagnosis of source program 
errors. The output will consist of the COBOL source 
program listing, cross-reference dictionary, and 
diagnostic messages. 

2. INTERMEDIATE — This operand will cause a 
full COBOL compilation to be made, but no Autocoder 
assembly is produced. Output consists of the COBOL 
source program listing (including the cross-reference 
dictionary and diagnostic messages) andthe Autocoder 
source program deck. The Autocoder source deck 
will be placed on the I/O unit specified by the CONFG 
card PUNCHELEM. No Autocoder listing is produced. 

FORTRAN CONSIDERATIONS 

General 

Specifications for preparing source programs in the 
FORTRAN language are contained in the 1410 Data 
Processing {system Bulletin titled, "FORTRAN for 
the IBM 1410: Preliminary Specifications," Form 
J24-1468. It is assumed the programmer is familiar 
with the contents of this publication. 

To process source programs in the FORTRAN 
language, POS requires a RUN card (FORTRAN RUN) 
immediately preceding the source program deck and 
an EOJ card immediately following the source pro- 
gram deck. (See Figure 34, FORTRAN Deck As- 
semblies.) 

The FORTRAN processor requires that the first 
card in the source program deck be a Beginning-of- 
Program (BOP) card, made up as follows: 



Columns 

16-18 

BOP 



Column 

16-18 

21-30 



34-35 



39-40 



21-30 

name 



34-35 
fixed 



SP-'SIO 
float 



49 
opt. 



51-55 
memory 



Description 

BOP (beginning of program) 

nam:e. If a main program, leave blank; otherwise, fill 

in name of the sub-program. Name must be left 

justified, starting in column 21. 

fixed integer size, right justified; if blank, a 5 is 

assumed. The :maximum value is 20. 

floating point fraction size, right justified; if blank, 

an 8 is assumed. The maximum value is 18. 



49 Output Options 

blank Output is as specified in the POS configuration 
cards. 

1 Output will consist of an Autocoder source 
program listing, standard Autocoder listing, 
and object programi deck. 

2 Output will consist of an Autocoder source 
program deck. Autocoder listing, and object 
program deck. 

3 Output will consist of an Autocoder source pro- 
gram deck and listing, and a standard Autocoder 
listing and object deck. 

5 Output will consist of an Autocoder source pro- 
gram listing. Run terminates after production 
of this listing. 

6 Output will consist of an Autocoder source pro- 
gram deck. Run terminates after production of 
this deck. 

7 Output will consist of an Autocoder source pro- 
gram deck and listing. Run terminates after 
production of these items, 

51-55 memory size of both the compiling and object program 

machine: assumed 39, 999 unless otherwise specified, 
(must be identical to configuration cards). 

Batch Compiling 

If it is desired, the user may process several 
FORTRAN source programs in one run. This is 
accomplished by placing an EOJ card at the end of 
each FORTRAN source program in the series, and 
a FORTRAN RUN card at the beginning of each pro- 
gram in the series. (See Figure 34, Fortran Deck 
Assemblies. ) 
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^ FORTRAN 
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FORTRAN 
Run Card 



EOJ Card 



END Card 



FORTRAN 
Source Program 



BOP Card 



FORTRAN 
Run Card 



Batch Compiling 



Figure 34. FORTRAN Deck Assemblies 



Processor Runs 
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MAINTENANCE AND AUXILIARY FUNCTIONS - UPDATE AND PRINT RUNS 



GENERAL 

The Update Run performs the maintenance function 
of updating (changing, deleting, and adding to) the 
POS, The Print Run performs the Auxiliary function 
of printing out selected sections of the Library. 

THE UPDATE RUN 



The Update Run is used to maintain the System, Tnere 
are two different types of Update Runs available with 
the POS: 

-Tape Update Run 

-Disk Update Run 
The Tape Update Run is described in this section of 
the manual; and the Disk Update is detailed under the 
heading DISK UPDATE PROGRAM. Whenever an Up- 
date Run is performed the cards specifying the desired 
changes should be arranged in a sequence corresponding 
to that shown in Figure 26, The tape Update Run is 
used to alter or duplicate the System Tape. Under 
the direction of control cards supplied by the user, the 
Tape Update Program can be used to delete, add, or 
modify a phase of a System Program, an entire System 
Program, or sections of the Library, The user can 
also place onto the System Tape the parameters that 
will determine his Standard Operating Configuration. 



Definition Cards 



Definition cards are control cards that indicate to 
the Update and System Load programs, the beginning 
and end of various phases of system programs, and 
the Library. (A phase is a logical block of a system 
program or library sub-section that is handled as a 
unit. See "Updating the Library" in this section.) 
The System Tape, as supplied by IBM, has definition 
cards inserted at the required places. 

A description of these cards and their functions 
are given below. The user must insert the appropri- 
ate cards when altering the System Tape by means 
of an Update Run. 

EOP Card (End-of -Phase Card) 

This card must follow each phase of a system pro- 
gram. It indicates, during the Build Run, that a 
complete phase has been formed within core storage 
and that the System Load Program can proceed to 
transfer this phase to disk storage. The format of 
this card is shown in Figure 35. 
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Figure 35 

EOL Card (End-of- Library Section Card) 

An EOL card must follow each section of the Library. 
This card indicates through the System Load Program 
that a complete section of the Library has been proc- 
essed. The format of this card is shown in Figure 36. 
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Where: xxxxx = name of section 
Figure 36 

EOS Card (End-of-System Program Card) 

An EOS card must follow the last EOP card of a 
system program. This card indicates to the System 
Load Program that a complete system program has 
been loaded. The format of this card is shown in 
Figure 37. 
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Where: xx = System Program (see Figure 43) 

Figure 37 

EOT Card (End-of-Tape Card) 

An EOT card must follow the EOL card in the USER 
section of the library (see "Updating the Library"). 
The format of this card is shown in Figure 38. 
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Figure 38 

NOTE: The USER section is the last file on the 
System Tape. 
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START Card 

The START card must be the first card of each 
system program and each Library section. The for- 
mat of this card is shown in Figure 39. 
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Where: xxxxxxxxxx = label as shown in Figure 40 

yyyy is "TAPE" if a system program uses card/tape IOCS 
yyyy is blank otherwise 

Figure 39 
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User Library Section 


USER 



Figure 40. START Card Labels 



Header Cards 



The first two cards of each phase (except phases 
LDISK, UI)TAP, MONTR) must be header cards, as 
shown in Figures 41 and 42. These cards specify the 
name of the phase, the upper and lower boundaries, 
and the address of the first instruction. The first 
header card has the format shown in Figure 41. 
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Where: xxxxx = name of the phase (NAMEX) 



Figiu'e 41 
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Where: 



eeeee = address of the first executable instruction 
aaaaa = address of origin of the phase 

uuuuu = update address. This is 19999 — (11111 — aaaaa) 
11111 = last position used by this phase (= or < 39997) 

Figure 42 

Updating a Phase 

In the material that follows "NAMEX" is used to 
represent the unique name of the phase as specified 
on the first header card. See Figure 41. Following 
is a list of the phase names. 

Contents of 1410/1301 POS systems tape: 



6-CD. LDR 

MONTR 

UDTAP 

LDISK 

LOADX 

SYSCL 

CDTIO 

RNCTL 

INPUT 

OUTPT 

DIOCS 

MAG EN 

MAG 2 A 

FAZ3A 

FAZ3C 

FAZ4A 

FTSUP 

PHF30 

PHF35 

PHF38 

PHF40 

PHF42 

PHF45 

PHF50 

PHF80 

PHF90 

COBOL 

PH 05 

PH 07 

PH 10 

PH 15 

PH 16 

PH 20 

PH 21 

Control Cards 



PH 22 

PH 23 

PH 24 

PH 25 

PH 26 

PH40 

PH 50 

PH 51 

PH 54 

PH 60 

PH 61 

RPGl 

RPG2 

RPG3 

RPG4 

RPG5 

RPG6 

RPG8 

RPG9 

RPGIO 

RPGll 

RPG7 

RPGIN 

RPGDA 

RPGCL 

RPGFM 

RPGED 

RPGl 3 

EDITO 

PRINT 

IOCS LIBRARY 

COBOL LIBRARY 

USER LIBRARY (If Any) 



The second header card has the format shown in 
Figure 42. 



The control cards used to alter the phases on the 
System Tape are described in Figures 43 through 48. 
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Figure 43 

All cards following the card shown in Figure 43, up 
to another update control card or an END card, will 
be added as a new phase in front of phase NAMEX. 
The new phase must have the proper definition cards , 
i.e. , the two header cards and an EOP card. If this 
new phase is to be added at the end of a system pro- 
gram, NAMEX should be punched "xxEOS" where 
"xx" is shown in Figure 44. 
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Figure 44 
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Figure 45 

The card shown in Figure 45 will replace the two- 
card header of phase NAMEX with the two-card 
header that follows this control card. 
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Figure 46 

All cards following the card shown in Figure 46, 
up to another control card or an END card will re- 
place the entire phase NAMEX. The new phase 
must contain an identifying two -card header. 
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All cards following the card shown in Figure 47, 
up to another control card or END card, will be 
inserted after the last data card of phase NAMEX 
(i.e. , before the EOP card that defines the end of 
phase NAMEX). 
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Figure 48 

This card shown in Figure 48 will delete phase 
NAMEX from the System Tape. The deletion will 
include the two-card header and the EOP card. 

Updating a Program 

Control Cards 

The control cards used to add or delete a system 
program to or from the System Tape are described 
in Figures 49-50. 
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Figure 49 

The card shown in Figure 49 will delete the sys- 
tem program specified by SYSNAME from the System 
Tape. The program will be deleted in its entirety 

from the START card up to and including the EOS 
card. The labels represented by SYSNAME are those 
shown in Figure 50. 
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Figure 50 

To add a system program to the System Tape , use 
the card shown in Figure 51. 
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Figure 51 

All cards following this card, up to another control 
card or an END card, will be added to the System 
Tape in front of the system program identified by 
SYSNAME. The deck for the added system must 
ha,ve the START card, header card for each phase, 
EOP card, and an EOS card as the last card. 



Line 
s 5 


Label 

6 


15 


Operation 
16 20 


21 26 


30 


" 


0, 1 , 


1 
1 , , , 


L>,RP,fl,TCO>,W,F,S. , 







0,2, 


1 




. , , / 



Figure 54 

The data on all cards following this card up to an- 
other control card or an END card, will replace the 
parameters that are stored on the System Tape that 
determines the standard operating configuration. The|_, 
first card of each package must be a GREAT card. 



Listing the Library from the System Tape 

The control cards used to list all macro headers or 
selected macros and subroutines from the System 
Tape are described below. 
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Figure 52 

This card causes all macro and subroutine headers, 
including all Library START and EOL cards, on the 
1403 Printer. 



Line 

3 5 


Label 

6 


15 


Operation 
16 20 


21 25 


30 


3? 




Ji 


tA^AC RO, 1 , , , 


U,P,D,AT 


LIST 






, 


'o,;j 


1 
- 1 . ■ , 


, , , , 


, , ,- ; 



NOTE: As in a BUILD run, a card must be included 
in the package for each parameter desired on the 
updated system tape. 



Updating the Library 

The Library is divided into three sections: IOCS, 
COBOL, and USER. Each of these three sections 
is further subdivided into three subsections identi- 
fied as subsections M, S, and Z. The M subsection 
is reserved for macro-instructions; the S subsection 
for subroutines , and the Z subsection for IOCS rou- 
tines. 

All additions to the Library must be in card-image 
form in the Library format (see Figure 55). 



Figure 53 

This card causes selected macros or subroutines 
to be listed on the 1403 Printer„ Routines are speci- 
fied in column 16, one per card, in a deck following 
this card. The pages from the listing are numbered 
with a Header at the top of each page. 

Changing the Standard Operating Configuration 

The control card shown in Figure 54 directs the Up- 
date program to change the standard operating con- 
figuration parameters on the System Tape. 



Control Cards 

The following control cards are used to update the 
Library. On these cards NAMEX identifies the 
phase, X is the subsection (M, S or Z), and SECTN 
is the section (ZIOCS, COBOL, or USER). 
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Figure 56 
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Figure 55. Library Coding Form 
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All library format cards following the card shown 
in Figure 56, up to another control card or an END 
card, will be inserted at the end of SECTN, sub- 
section X. If NAMEX refers to a macro already 
in the library, the old macro will be deleted, and 
the new macro will be put in its place. 
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Figure 57 

The card following the card in Figure 57 will be 
inserted as the first statement of NAMEX in sub- 
section X. 
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Figure 58 



Figure 62 

This card (Figure 62) causes statements y through 
z to be deleted from KAMEX of subsection x. 

Duplicating System Tape 

To have the Update Program duplicate the System 
Tape, the user enters a control symbol at the con- 
sole typewriter during the initiation of the Update 
Run. See "Update Run," in the Operator's Guide 
section. 

Card Deck Set for the Update Run 

Figure 63 shows the card deck setup for the Update 
Run. 



The cards following the card in Figure 58 will be 
inserted as new statements following statement y of 
NAMEX in subsection x. 
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Figure 59 

This card (Figure 59) will cause current statements 
y through z to be deleted. It will also cause the 
library statements following this control card, up to 
another control card or an END card, to be inserted, 
starting with statement y of NAMEX in subsection x. 
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Figure 60 

This card (Figure 60) will delete from the System 
Tape the statements that make up NAMEX in sub- 
section x. 
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Figure 61 

This card (Figure 61) causes statement y to be 
deleted from NAMEX of subsection x. 



END 



Update Data 
(See Note) 



Note: 
Update Data consists of: 
1 , Control C ards ( UPDAT , INSER , 

DELET) 
2o Correction (Patches, HeaderCards, 

CONFG Cards, Library Statements) 



Figure 63. Card Deck Setup -- Update Run 



1301 PRINT RUN 

The Print Run is used to print out selected sections 
of the Library from disk storage. The print output 
is on the device specified by the standard operating 
configuration or by CONFG cards included in the 
control package for the Print Run. 

Control Card 

To indicate to the system control program that the 
Print Run is desired, the control card shown in Fig- 
ure 64 is used. 
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Figure 64 

Cards with formats shown in Figure 65 are used 
to specify the desired library statements. For ex- 
ample , if the user desires to have the subroutines 
called by the GETS and/or PUTS macro -instructions 
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printed out, he punches cards with GETS and PUTS. 
See Figure 66. 
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Figure 65 
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Figure 66 

Card Deck Setup for the Print Run 



If any updated macro or subroutine requires more 
area than it originally occupied, the entire updated 
macro or subroutine will be moved to the end of the 
Library. 

The control cards acceptable to the Disk Update 
Program are described below. 

Control Cards 



Updating a Phase 
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Figure 68 



Figure 67 shows the card deck setup for the Print 
Run. 
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Figure 67. Card Deck Setup -- Print Run 

DISK UPDATE PROGRAM 

General 

The Disk Update program provides the means for 
maintenance of the POS while on disk. It allows the 
correction and replacement of system phases, mac- 
ros and subroutines, communication table information, 
and will list phase and/or macro directory contents 
on the console typewriter. It also allows movement 
of the system from one area'of the disk to another. 

If any replaced or patched phase is larger than the 
one it replaces, the system will be moved back the 
number of tracks required to accommodate the new 
phase. If there is not enough room between the sys- 
tem-end and library-start for expansion, the library 
will be moved back one cylinder. 

In any track movement required, the directories 
involved will be updated. 



The cards following this card, up to another con- 
trol card or an END card, will completely replace 
phase xxxxx on the disk. The sippropriate two-card 
header must precede the phase (see Figures 41 and 
42). 
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Figure 69 

The cards following this card up to another control 
card or an END card, will replace current phase 
xxxxx on the disk. If a patch fjills outside its ORG 
or END locations, the header must also be updated. 
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Figure 70 

The two cards following this card will be used to 
update the ORG, END and ENTRY information on the 
first track of phase xxxxx. 

Listing the Directories 
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Figure 71 

The Library Directory will be listed on the console 
typewriter. 
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Figure 72 

The Phase Directory will be listed on the console 
typewriter. 

Moving the System 
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Figure 73 

That portion of System Area 1, which is used for 
System programs, will be moved to an area specified 
in a SYSAREA 1 CONFG card following this UPDAT 
card (Figure 73). If "BOOTSTRAP" is punched in 
column 6, a new area BOOTSTRAP card will be pro- 
duced on the PUNCHELEM unit specified in the Com- 
munications Table. 

Changing the Standard Operating Configuration 
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Figure 74 

The CONFG cards following this card will be used 
to alter the Communications Table. 

Updating the Library 
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Where W = M for flexible subroutines — ' — ''*''''*' 
S for inflexible subroutines 
Z for IOCS Library 

Figure 75 

A new macro or subroutine will be added to the 
Library, with name xxxxx, into section W. 
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Figure 76 

Statement numbers X and Y will be deleted from 
macro xxxxx, and all new statements following this 
card will be inserted, beginning with statement 



number X. If X = Y, only one statement will be 
deleted before beginning statement insertions. 
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0,2 


1 1 1 \ 1 L_L ! L_ 


1 1 1 1 


; 



Figure 77 

New statements following this card will be added 
beginning with statement number X + 1. No deletions 
will be made. 



Line 

3 5 


Label 

6 15 


Operation 

16 20 


21 


25 


30 


. 


0,1, 


/,X,X,)<,X, 1 . , , 


P.E.(-.BJ 


w \ 


0,2 


1 
1 1 1 1 • 1 1 : • 


, , , , 


\ 



Figure 78 

Macro or subroutine xxxxx will be deleted from 
the disk. 



Line 

3 5 


Label 

6 


15 




Operation 

16 20 


21 25 


30 


35 


( 


0, 1, 


x.x.xx.x. 1 , , , 


D.e.'^.ej 


K*j<.».y.^^ 


rr 


1 1 1 1 


, 1^ 
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,,,,.!,.., 


. . , , 


1 L 1 1 1 1 L. 


, ,■/' 



Figure 79 

Statements x and y will be deleted from macro 
xxxxx. X may equal Y. 



Line 

3 5 


6 


Label 


15 


Operation 

16 20 


21 


25 


30 


., 


0, 1 , 


1 


^.^A 


) 


0,2 


1 
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1 















Figure 80 

This card causes a return to System Control. 
Disk Update Program Deck Setup 



Figure 81 shows the Disk Update Program Deck 
Setup. 



END 



Update Date (see | 
.Note) 



System Run 



BOOTSTRAP 



Note. - Update Data Consists of: 

1. Control Cards 
(UPDAT, INSER, DELET) 

2. Corrections 
(Patches, Header Cards, 
CONFG Cards, Library 
Statements. 



Figure 81. Disk Update Setup 
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APPENDIX A — 1401 PRINT/PUNCH PROGRAM 



Data for punch and print output can be intermixed on 
one reel of magnetic tape for subsequent off-line 
printing on an IBM 1401 Data Processing System. 
This tape can contain assembly listings only, or a 
mixture of assembly listings and data for the con- 
densed object-program decks. If either or both of 
these options are chosen, the information on the tape 
is automatically preceded by the 1401 Print/Punch 
program (a self-loading program that selectively 
prints and punches) . 

What This Program Will Do 

The 1401 Print/Punch program has the following 
features : 

1. It is self loading on a 1401 or on a 1410 oper- 
ating in 1401 mode. 

2. It prints assembly listings. 

3. It punches condensed card decks from tapes 
containing intermixed information. 

4. It writes the tape records for condensed object 
program decks, produced by the Fortran proc- 
essor, as a file on tape for the Fortran relo- 
catable loader. 

5. It reconstructs and punches 1410 symbolic card 
decks from the assembly listings that are on 
tape. (EJECT cards are not produced when 
the program reconstructs the symbolic card 
deck.) 

6. It can bypass any selected tape file or group of 
files controlled by sense -switch settings or 
control cards. (These are described below.) 

Mixed tapes of the type serviced by this program 
will be used by IBM to distribute listings and program 
decks to the users of the 1410 system. 

Installation program libraries can be conveniently 
stored on tapes containing intermixed information. 

Machine Requirements 

The following are the minipium 1401 machine require- 
ments for the program: 

1400 positions of core storage 

1 IBM 1402 Card Read-Punch 

1 IBM 1403 Printer 

1 IBM 729 or 7330 Magnetic Tape Unit 

NOTE: The system must be equipped with the no- 
charge RPQ #898148 to properly punch cards. This 
RPQ modifies the 1401 system to read an 8-2 card 
column as an A bit {and to punch an A bit as an 8-2 
(rather than as a zero) . 



Control-Card and Sense-Switch Options 

Figure A-1 shows control-card entries, sense-switch 
settings, and the options controlled by each. If the 
sense switches are used, control cards are not re- 
quired, and conversely, if control cards are used, 
sense switches are not required. One control card 
is used to indicate all the options chosen. 

NOTE: Do not use control cards and sense switches 
simultaneously. 



Control Card 


Sense Switch 


Function 


L in column 1 
blank in column 1 


B, normal position 
B, ON position 


Prints assembly listing 
Bypass printing 


P in column 2 
blank in column 2 


C, normal position 
C, ON position 


Punch condensed decks 
Bypass punching 


blank in column 3 
P in column 3 


D, normal position 
D, ON position 


Bypass punching 
Punch symbolic deck 


blank in column 4 
T in column 4 


E, normal position 
E, ON position 


Bypass tape write 
Write out on tape 4 



Figure A-1 



Operator's Guide 



Using the 1401 



1. 
2. 

3. 

4. 
5. 
6. 



7. 



Mount and ready the tape on unit 1. 

Mount and ready a scratch tape on unit 4 if a 

Fortran tape is to be written. 

Ready the card read-punch. 

Press CHECK RESET and then START RESET. 

Press TAPE LOAD. 

The Print/Punch program will be loaded into 

core storage and the program will halt. The 

"Storage Address" lights on the console will 

indicate "376." 

Set the sense switches or place a control card 

in the reader. There will be a machine halt 

(with a "Storage Address" indication of "376") 

before each tape file is processed. Thus, the 

user may change the options chosen for each 

file. To bypass a file, simply choose all four 

bypass options. 

If sense switches are being used, press 

START. If control cards are being used, 

press START R^^SET and then START. 
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9. After the last file is processed , "EOJ" will 
be printed on the 1403 printer, and the tape on 
unit 1 will be rewound. 



Using the 1410 in 1401 Mode 



1. 

2. 

3, 



4. 
5. 
6. 



Place the tape on channel 1, unit 1, 

Place a scratch tape on channel 1 , unit 4 if a 

Fortran tape is to be written. 

With the 1410 in 1410 mode: 

a. Clear storage 



b. 



c. 



Display "19000" 

V^ V V 

ALTER in "L%U1001RB001. " 



SWITCH the 1410 to the 1401 mode. 
Branch to 19000 and press START. 
Proceed as in step 6 in this section under 
"Using the 1401." 



Error Correction 

Programmed error-correction procedures are for 
tape errors only. There will be no programmed 
halts in case of tape errors. 

If a tape-read error occurs, a maximum of nine 
rereads are attempted. If the read is still unsuc- 



cessful, the first 80 characters of the record are 
punched, and the punched card is selected to the "NP" 
pocket. The printer will be triple spaced, and "X" 
will be placed in the first print position, and the 
entire record will be printed. 

If a tape-write error occurs, the program will 
skip the tape forward and attempt to write the tape. 
No halts will occur. 

NOTE: Normally the 1401 Print/Punch Program 
will precede the first output listing file on any tape 
unit specified by the CONFG card PRINT ELEM. 
However, during a Processor Run and after the first 
job has been processed, it is possible to suppress the 
1401 Print/Punch Program as follows: 



1. 



2. 



A change of PRINTELEM from 1403 Printer to 
a tape unit will suppress the 1401 Print/Punch 
Program from the magnetic tape. 
A change of PRINTELEM from one tape unit to 
another will suppress the Program from the 
second tape. 



Thus, by taking advantage of these two conditions, 
the 1401 Print/Punch Program can be suppressed as 
the first file on the output listing tape. 
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APPENDIX B — CONTROL TABLES 



The information in this appendix is not required by 
the user for any POS runs but is to be used durin? 
debugging analysis. 

Described in this appendix are three tables that 
are used by the POS for communication between sys- 
tem programs and between the phases of a system 
program. These tables are: Communication Table, 
Program and Phase Directory, and Library Direc- 
tory. 

THE COMMUNICATION TABLE 

The Communication Table contains the control infor- 
mation (Figure B-1) that is in effect at any one time 
in the system. Many of the entries in this table re- 
flect the options specified in CONFG-card entries. 
(These are indicated in Figure B-1 by the appropriate 
CONFG-card label.) 

The Communication Table occupies core -storage 
positions 00500 through 00999 during any type of run 
other than the Build Run or Tape Update Run. 

The location, description and format of each of the 
Communication Table entries are shown in Figure 
B-1. 



PROGRAM AND PHASE DIRECTORY 

The Program and Phase Directory is recorded in the 
load mode on a single disk track. The address of 
this track is given in the Communication Table in 
core-storage positions 00598-00601. 

The program entries are given first on this track, 
followed by the phase entries. 

P rogram Entries 

Each program entry is eight characters in length with 
the format shown below: 

V V V 

xxrrrryy 
Where: 
XX indicates the name of the system program (see 

figure 43). 
rrrr is the relative address of the location of the 

first phase entry for this system program. 

This address is relative to the first character 

position on the track. 



jry is the number of phases in this system program, 
(If a system program uses the card/tape IOCS, 
then an "A" bit will be associated with the low- 
order "y. " 

Phase Entries 

Each phase entry is ten characters in length with the 
following format: 

V 

ttttnnnnnn 
Where: 
tttt is the track address of the first track of the 

phase, 
nnnnnn is the name of the phase. (If the name of 
a phase is less than six characters , it is left- 
justified in positions nnnnnn with the unused 
positions filled with blanks.) 
The last entry of the Program and Phase Directory 
consists of five numeric characters that specify the 
position of the last character of the last phase entry 
relative to the first character on the track. 

THE LIBRARY DIRECTORY 

The Library Directory is recorded in the load mode 
on a single disk track. The address of this track is 
given in the Communication Table in core -storage 
positions 00602-00605. 

The entries in the Library Directory consist of the 
names and locations of all routines in the POS Li- 
brary. 

The first entry in the Library Directory consists 
of four numeric characters tha,t specify the position 
of the last character in the Library Directory rela- 
tive to the first character. 

The individual Library Directory entries have the 
following general format: 

V 

ttttsnnnnn 
Where: 
tttt is the number of the disk track on which the 

library routine begins, 
s represents the subsection to which the library 

routine belongs. It can be: 
M for macros 
S for subroutines 
Z for IOCS routines 
nnnnnis the identifying name of the library routine. 
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Core Storage 
Location 



Description 



Format 



Core Storage 
Location 



Description 



Format 



OOSOO-00504 Initial Input Unit (INITINPT) 
00505-00509 Source Input Unit (INPTELEM) 
00510-00514 Print Unit (PRINTELEM) (See Note) 
00515-00519 Punch Unit (PUNCHELEM) (See Note) 
00520-00528 System Area 1 (SYSAREAl) 
00529-00532 Total number of tracks in System 

Area 1 
00533-00536 Number of unused tracks in System 

Area 1 available to the phase 

being run 
00537-00545 System Area 2 (SYSAREA2) 
00546-00549 Total number of tracks in System Area 2 
00550-00553 Number of unused tracks in System 

Area 2 available to phase being run 
00554-00562 System Area 3 (SYSAREA3) 
00563-00566 Total number of tracks in System Area 3 
00567-00570 Number of unused tracks in System 

Area 3 available to phase being run 
00571-00579 System Area 4 (SYSAREA4) 
00580-00583 Total number of tracks in System Area 4 
00584-00587 Number of unused tracks in System 

Area 4 available to the phase being 

run 
00588-00591 Number of tracks in System Area 1 in 

use 
00592-00597 Version and Modification Levels of 

this POS 
00598-00601 Track address of the Program and Phase 

Directory 
00602-00605 Track address of the Library Directory 
00606-00610 Unused 
00611-00619 Address of source input data if this data 

is in disk storage 

00620 Tape Header Label Check (HDRCHECK) 

00621 Processor Machine Size (MACHSIZE) 

00622 Directory Indicator -- ON, if Library 

Directory is in core storage 

00623 First Job Switch (ON, if first job of a 

batch or if a job changes the input/ 
output configuration) 

00624 Suppression of Punch or Print (SUPPRESS) 

00625 Rewind option for Punch output. If the 

object program punch output is 
placed on tape, the switch is ON if 
the tape is to be rewound after each 
object program is transferred. 

00626 Loader option. If the object program 

output is in cards or on tape, this 
switch is ON if the program output is 
to be preceded with the IBM standard 
load program. 

00627 PST Indicator ON if the Autocoder 

processor is to supply the symbol 
table 

00628 Object Machine Size (OBJSIZE) 

00629 Relocation (RELOCATE) 

00630 EOF Indicator ON if the source program 

input has reached end of file 

00631 Assembly run switch ON if assembly is 

to follow compilation. This switch 
is set by the RUN card operand. 

00632 Internal POS code. (This is the same as 

in location 00631 except that this 
switch is set by the Processor. ) 

00633 Alternate Suppress Switch ON if the 

particular program being run has 
suppression option. (The entry in 
"00624" is the Standard Operating 
Configuration. ) 

00634 First Card Indicator ON if a phase of a 

system program has read in a card of 
a source program which was un- 
anticipated. (This would be the result 
of an incorrect source program 
deck setup. ) 
00635-00639 Not used 



bxxxz 
bxxxz 
bxxxz 

bxxxz 

camtttthh 

mmmm 

mmmm 



camtttthh 

mmmm 

mmmm 

camtttthh 

mmmm 

mmmm 

camtttthh 

mmmm 

mmmm 



ppvvll 

tttt 

tttt 

camtttthh 

d 
e 
"B"(on) 

d 



cmtttthh 
tttt 



mmmmm_ 



00640-00654 Instructions by which system programs 
pass control from one program to 
another 

00655-00714 Communication Words. These are used 
to indicate the location of files of 
data. There are five sets of file- 
words in this field each symbolically, 
FILST (start of the file) and FILND 
(end of the file), 
FILST 
.FILND 

00715-00716 Unused 

00717-00721 Running counter of the highest posi- 
tion assigned by Autocoder 
00722 Signal from Autocoder Phase 3 to d 

Autocoder Phase 4 

00723-00727 Location of the start of the Autocoder mmmmm 
Symbol Table 

00728-00732 Location of the end of the Autocoder 
Symbol Table 

00733-00747 Autocoder title card parameters 
00748 Recursion Switch for the Autocoder 

Symbol Table 

00749-00753 Not used 

00754-00758 Address of the last symbol in the Auto- 
coder Symbol Table 

00759-00766 Not Used 

00767-00846 First Card Save Area (this field contains 
a card image record of the card 
which caused the switch at 00634 
to be set on) 

00847-0085 1 Name of the phase currently being run 

00852-00998 Unused 

00999 Group Mark with a Word Mark 



mmmmm 



mmmmm 



Key to Format 



This is always a "0" 



a Access mechanism number, 

b Input/ Output Unit; 

2 Tape 

3 Card Reader 

4 Card Punch 

5 Printer 

6 1301 Disk Storage 
c Channel Symbol: 

(a), Channel 1 

* , Channel 2 
d O--N0 or OFF 

l~Yes or ON 
e Processing Machine Size (Internal Format) 

3 40, 000 positions 

5 60, 000 positions 

7 80, 000 positions 
hh HA2 

11 Modification Level Number 

m Module Number, -*-9, 

n Digit from 0— >-9. 

o Object Machine Size (Internal Format) 

10, 000 positions 

1 20, 000 positions 
3 40, 000 positions 
5 60, 000 positions 
7 80, 000 positions 

pp Processor System Number 

tttt Track Number (HAl) 
vv Version Number 

w No Suppression 

1 Suppress Punch 

2 Suppress Print 
XXX X-Control Field 

z Branch if any I/O Channel Status 

Indicator ON 

R — Channel 1 
X -- Channel 2 

Note: If this unit is a tape unit, the data will be in odd parity. 



Figure B-1. The Communication Table 



APPENDIX C — FORTRAN RELOCATABLE PROGRAM LOADER 



INTRODUCTION TO RELOCATION 



FORTRAN RELOCATABLE -PROGRAM LOADER 



A relocatable or relocation loader is a program de- 
signed to relocate sub-programs and routines in 
order to place them sequentially into storage, while 
modifying addresses to reflect changes in locations. 
Such a loader is needed for incorporating into a 
single program, at object -time, parts of a program 
that have been written, assembled, and perhaps de- 
bugged independently, and for including standard 
routines from a library. These sub-programs 
would have been written and assembled as though 
each started at the same fixed position in storage, 
usually location zero. The relocation is accom- 
plished by assigning progressively higher addresses 
to successive instructions, constants, work areas, 
etc. , within a routine and from one routine to the 
next. 

Obviously those operands which address relocated 
items must be suitably modified while others must 
be left unchanged. Examples of the former are the 
addresses of factors in arithmetic operations and 
operands of branch instructions; examples of the 
latter are addresses designating input/output devices 
and system registers. Most addresses are affected 
by relocation increments; however, those addresses 
referencing COMMON may be adjusted either up- 
ward or downward. 

The loader will either modify a given address or 
not depending on relocation indicators placed in the 
load card produced by an assembler. Thus an as- 
sembler, in addition to converting symbolic codes 
and labels to machine language, will analyze each 
address as to the need for modification under re- 
location. Its output, in the form of load cards with 
relocation indications would then become the input 
to the relocation loader. 

An additional function of a relocatable loader is 
to provide the linkage necessary to pass control 
from one sub-program to another. This presents 
no difficulty if the called routine has already been 
loaded at the time it is called since a simple branch 
instruction can be placed in the calling routine. How- 
ever, if the called routine has not yet been loaded 
and therefore the address of its entry point is un- 
known, a dummy branch instruction must be put into 
the calling routine and an indication stored to return 
at the proper time to fill in the required address. 
Thus, the use of a suitable assembly routine and a 
relocatable loader eliminates the need for reas- 
sembly when subprograms and routines are to be 
incorporated into a single program in storage. 



The FORTRAN Relocatable Loader for the IBM 1410 
is designed to load, relocate, and link subprograms 
and routines written in FORTRAN, processed by the 
FORTRAN compiler and assembled by the 1410 AUTO- 
CODER processor run under the "RELOCATABLE" 
option. (See "Autocoder Relocation. ")• In addition, 
it makes provision for options to pre-set program 
switches, to punch the relocated program into cards 
preceded or not by a load routine or to write it on 
tape, to reassign tape units to be used by the object 
program, to obtain the object program from different 
input devices during loading, and to print on the con- 
sole typewriter pertinent information about each 
routine loaded. It will also print a warning message 
if the loaded program exceeds memory and if called 
routines have not been loaded. 

Storage addresses are modified as described in 
the section, "Introduction to Relocation. " It should 
be noted that COMMON addresses are assigned at 
assembly time on the basis of the defined object 
machine and normally remain unchanged when loaded. 
However, the designation of either a different object 
machine with the BOP card; or of a high order ad- 
dress other than the highest with an upper load limit 
control card, will cause the Loader to appropriately 
alter the COMMON addresses. It should be noted 
that there may be duplication in the COMMON ad- 
dress if two or more programs or routines which 
reference COMMON, and which have been assembled 
separately, are loaded together. 

The Relocatable-Program Loader will operate on 
the following minimum machine configuration: 
20,000 positions of core storage-^ and 
1 IBM 1402 Card Read-Punch, Model 2 or 
1 IBM 729 Magnetic Tape Unit, Model n,IV, V, 
VI or 

1 IBM 7330 Magnetic Tape Unit 
If the programs being loaded cannot be included in 
core with the Relocatable Loader, an additional Mag- 
netic Tape Unit will be required for overflow. 

AUTOCODER RELOCATION 

Although the FORTRAN Relocatable Loader is pri- 
marily designed for loading programs written in 
FORTRAN, it can be used for programs written in 



1 The Loader as supplied is coded to occupy storage positions 
27000 to 38200. However, it may be placed into any desired 
part of memory by re-assembling it with the Autocoder processor 
and a new ORG card. 
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Autocoder. The FORTRAN compiler translates the 
FORTRAN statements into Autocoder language; the 
Autocoder processor converts this program to ma- 
chine language in condensed load card format. At 
the same time it analyzes all addresses and punches 
relocation indicator codes to define the adjustment 
that must be made to the addresses under relocation. 
It uses the following pseudo-operations produced by 
the FORTRAN compiler: 

1. TITLE 

2. DCWS 

3. DCWF 

4. DAV 

Therefore, a user may write a program or sub- 
program directly in Autocoder language and obtain 
a relocatable condensed deck if he specifies "RE- 
LOCATABLE" as the operand of the AUTOCODER 
RUN card and if he includes in the input any of the 
pseudo-operations named above that are required by 
his program. 



The TITLE Card 

The function of the TITLE pseudo-operation is to 
cause the Autocoder processor to develop informa- 
tion regarding a given routine to be used by the FOR- 
TRAN loader in placing the routine in storage and 
establishing proper linkage to it from other programs. 
The format of the input card and that of the Autocoder 
output card are: 



16 21 
DCWS NAMEX- 
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36 



41 



Column 6 21 

Input TITLE NAMEX 

Output TITLE NAMEX— AAAAABBBBBCCCCC. . . 



72 



5., 



Column 1 
Input 

Output Wxxxxx W00007WJNAMEX- 
S S S 



Column 71 72 73 - 80 

Input 

Output S 6 IDENT 

where 

NAMEX — is the name of the routine called. 

xxxxx -- is the loa,d address for the transfer instruc- 
tion as assigned by Autocoder. 

S6 — is the relocation code explained later. 

IDENT — is the card number and program identifi- 
cation. 



The FORTRAN Loader will replace NAMEX 

by the address of the relocated entry to the routine. 

The DCWF Card 



The function of the DCWF card is to direct the loader 
to obtain from the library a routine to be used as an 
argument of a called routine and to create an adcon 
for its entry point. It is designed to accomplish the 
function of the FORTRAN-F card. Thus the combi- 
nation of a DCWS card and one or more DCWF and 
DCW cards produce the same result as a CALL 
SUBROUTINE statement in FORTRAN. For example, 
the FORTRAN statement 

CALL BOB(SIN,S) 

F SIN 

can be accomplished in Autocoder by 

DCWS BOB 

DCWF SIN 

DCW S 

The formats of the input card to and the output 
card from the Autocoder processor are 



where 

NAMEX — is the name of the routine or is left blank 
if it is part of the mainline program. 

AAAAA — is the address of the first word of the 
routine as assembled by Autocoder. 

BBBBB — is the address of the entry point to the 
routine, obtained from the END card. 

CCCCC -- is the number of COMMON positions re- 
served for the routine. 

5 — is a card relocation code explained later. 



Column 1 16 
Input DCWF 
Output WxxxxxWOOOOSWNAME 

s s s 



21 

NAME- 



71 72 73 - 80 
S 7 IDENT 



where 

NAME — is the name of a library routine, 

xxxxx — is the address of the location to which the 

adcon will be loaded. 
S7 — is the relocation code. 
IDENT — is the card number and program ijdentifi- 

cation. 



The DCWS Card 

The function of the DCWS pseudo-operation is to 
cause the Autocoder processor to develop a transfer 
to a called routine. 



The DAV Card 

The function of this pseudo-operation is the same as 
that of the DA except that it defines an area in the 
COMMON storage area. The COMMON is used to 
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hold parameters shared by subprograms and routines 
and is usually in upper memory. The DAV card 
must be preceded by an ORG card indicating the 
actual lowest address of the defined area. It is fol- 
lowed by any field definition cards as with the DA, 
and must also be followed by an RSV card for each 
label of the DAV statement referenced elsewhere in 
the program. 



Column 1 




15 


21 




Input 


NAME 


ORG, 


COMMONCTR - 


- K 


Input 


NAME 


DAV 


BxL 




Input 


FIELDA 




M.N 




Input 


rt,sv 


RSV 


NAME 




Input 




RSV 


FIELDA 





and the output is a set of cards of the format: 

Column 1 15 

Output EWD00201 xxxxx4WA00253(X)211 WS002 1300258 WJ00281 
S S S S 

67 72 73 - 80 
VWJ00201 tSW 0000 LW 0000 B 8 IDENT 
S S S 



COMMONCTR has been equated to the uppermost 
core storage location. K is the total number of 
COMMON storage locations assigned to and in- 
cluding this point in the program. 

NAME, B, L, FIELDA, M, and N have the same 
meanings as they do in the DA pseudo-operation. 

8 is the card relocation code. 

IDENT is the card number and program identifica- 
tion. 

The set of output cards consists of execute cards 
each of which is a one card routine for setting the 
required word marks for each field in the defined 
area. 



RELOCATION INDICATORS 

The Autocoder processor will produce condensed 
load cards with relocation indicators starting in 
column 72 and continuing toward column 1. The in- 
dicator in column 72 designates to the Relocatable 
Loader the type of card and is one of the following: 
Code Meaning 

Card whose contents are not relocatable 

1 Standard relocatable card for instructions 

2 The final execute card 
5 Title card 



6 Transfer entry card (from DCWS) 

7 F -function card (from DCWF) 

8 Execute card - but not the final one - (e. g. 
set word mark for DA or DAV) 

9 End of loading library routine 

Beginning in column 71, indicators are punched for 
each load word contained in the card. The indicator 
punched in column 71 refers to the first load word 
in the card beginning in column 13, the one in column 
70 refers to the second load word in the card, etc. , 
(these indicators are printed on the Autocoder list- 
ing just before the character count for each item). 
The format of a 1-type card is 



Column 1 7 13 

WxxxxxWOOOOYYWI. . . WI. . , WI. 
S S S S 



69 70 71 72 
R R R I 



Column 73-75 76-80 
ZZZ IDENT 

where 

xxxxx — is the load address of the first instruction 

on the card. 
YY — is the count of characters to be loaded. 
I — is an instruction of from one to twelve characters. 
R — is the instruction relocation indicator. 
ZZZ — is the card number. 
IDENT — is the program identification. 

The indicator for a given instruction shows the 
presence or absence of an A-field or I address, B- 
field address, or X-control field, gives the direction 
of relocation for each address and indicates the 
presence or absence of an op-modifier . In the follow- 
ing table are shown the indicator codes for possible 
combinations of address and relocation, the first 
number of each pair being used if there is no op- 
modifier and the second if there is. 



A-field or I Address: 

No relocation 
Upward relocation 
Downward relocation 
No A or I address 
X-Control Field 



The other indicator codes and their meanings are: 
Code Meaning 

N Adcon — relocate upward 

P Adcon — relocate downward 

Q Adcon — do not relocate 

S Symbolic DCWS card 

V Constant 



B Address 


No 


No 


Upward 


Downward 


Relocation 


Relocation 


Relocation 


B Address 


or ? 


1 or A 


2orB 




3 or C 


4or D 


5 orE 


(5} or ) 


6 or F 


7orG 


8orH 


: or( 
9 or I 


L 


J 


K 


M 
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CONTROL CARDS 



Flexibility in the use ot the FORTRAN relocatable- 
program loader is provided through control cards^ 
These cards are normally included just before the 
program to be loaded, except as otherwise noted in 
the explanations; however, they may be included at 
any time before the option they designate becomes 
effective. An option in a control card can be reset 
or changed by including the same type of control card 
with the new option. The control cards must be 
punched with the name of the option starting in Col- 
umn 1 (only the first five columns are used by the 
loader), the option. left-justified in column 30-36 
and a C in column 72. The following table is a sum- 
mary of the options and the assumed values if the 
control card for an option is not included. An ex- 
planation of each type of card follows the table. 



routines in the "initial package" can be altered by re- 
creating the Library Tape. The use of this option 
does not preclude the calling of other library routines. 
This card can occur at anytime in the loading and 
will cause the Library Tape to be rewound and the 
"initial package" loaded. 

Note 1: Since each call for a routine not yet loaded 
causes an entry in the forward reference table (maxi- 
mum 150 entries) the library routines should be loaded 
before the main program. 

Note 2: There are advantages in tape handling in 
putting the FORTRAN loader at the beginning of the 
Library Tape. 

Option: Column 30 Number of tape unit 

(must be on channel 1) 
Standard: It is assumed that there is no "initial 
package. " 







Assumed 


Columns 


30-36 


Values 


LIBRARY TAPE UNIT 


n 


None 


ENTER FROM 


nuz 


CARDS 


FINAL INPUT TAPE 


nuz 


CARDS 


LOWER LOAD LIMIT 


xxxxx 


00700 


UPPER LOAD LIMIT 


xxxxx 


39999 


INTERMEDIATE TAPE UNIT 


n 


4 


REPLACE PRINTER BY 


mn 


On-line printer 


OBJECT TAPE ASSIGNMENT 


inn=rr)Sp 


(See explanation) 


MODULE AVAILABLE 1301 


CDDDEEE 


1 249 001 


CHANNEL NUMBER 1301 


(1-4) 


@ 


HOME ADDRESS 1301 


(00-99) 


00 


MEMORY MAP 


u 


No 


WRITE RELOCATED TAPE 


u 





PUNCH RELOCATED DECK 


0, 1 or 2 


2 


CLEAR MEMORY FROM 


xxxxx 


39999 


SENSE SWITCH SETTINGS 


uuuuuu 


000000 



where 
u = or 1 

xxxxx — is a core address, 
n — is a Channel 1 tape iinit number. 
z — is the number of files, 
m — is a channel number 
rr ~ is the FORTRAN tape number 01-20. 
p — is the parity. 

CDDDEEE — is module number, first cylinder in 
area, and number of consecutive cylinders. 



ENTER FROM 

Function: To designate a card reader or a tape unit 
as the device for reading programs or data to be 
loaded. An ENTER FROM control card or its image 
on tape would be placed at the end of the items to be 
loaded from one device in order to start the loading 
from another. 

Option for Tape (must be in odd parity): 



Column 30 



Column 31 



Column. 3 2 



Option for Cards: 

Columns 3*0-35 
Standard: 



Number of tape unit (must 
be on channel 1) 

if 80 -character record 
form. 

1 if mixed record length. 
(In this case, only 80- 
character records will be 
loaded, the others ignored. ) 
1 - 9 to indicate the' number 
of consecutive routines 
(files) to be loaded from 
this tape. 

CARDS 
CARDS 



LIBRARY TAPE UNIT 

Function: To cause the loading of the "Initial pack- 
age" from a designated tape unit. The "initial pack- 
age" is a set of routines the user has selected to be 
included in every program and has placed at the be- 
ginning of the Library Tape followed by a record 
with 9 in position 72 (card relocation indicator). The 



FINAL INPUT TAPE 

Function: To cause the loader to read, from a speci- 
fied tape unit, the routines that have been called but 
not loaded when the end-of -program blank card is 
reached. At that time the loader examines the for- 
ward reference table for the existence of such rou- 
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tines and, if any, prints a message, halts, and, 
when restarted, reads from some input device to 
find the missing routines. 



Option: Column 30 
Column 31 



Column 32 



Standard 



LOWER LOAD LIMIT 



Number of tape unit (must 
be on channel 1) 

if 80 -character record 
form. (In this case, only 
80-oharacter records will 
be loaded, the others 
ignored. ) 

1 if mixed record length. 
1-9 to indicate the number 
of consecutive routines 
(files) to be loaded from 
this tape. 

CARDS 



F unction: To cause the loader to begin relocating 
items at a specified core storage address. This 
control card, which can be included at any place in the 
program being loaded, causes the loader to reorigin 
to the specified load point. This could cause over- 
lapping of items already loaded. 

Option: Columns 30-34 Core storage address 
Standard: 00700 

Note 1: Positions 00505-00655 are required by the 
loader for storing the object time and load time con- 
trol tables. They must not be overlaid. 

Note 2: The loader will not relocate any address 
nor any instruction assigned by the Autocoder proc- 
essor below 00700. Therefore, it is advisable that 
an Autocoder ORG 700 be used at assembly time. 

U PPER LOAD LIMIT 

F unction: To indicate a maximum relocated address, 
normally the uppermost core position available on 
the object machine. This control card should be used 
when loading programs into computers with more than 
40K storage to indicate the additional storage loca- 
tions. 

Option: Column 30-34 Core storage address 

(usually highest) 
Standard: 39999 

IN TERMEDIATE TAPE UNIT 

Function: To designate a tape unit for use by the 



end of the loading, the load routine will be cleared 
and the items loaded into their proper locations. 

Option: Column 30 Number of tape unit (must 

be on channel 1) 
Standard: 4 

Note: If the WRITE RELOCATED TAPE option is 
used, the tape unit designated here will be used for 
that purpose and no intermediate items will be 
written. 

REPLACE PRINTER BY 



Function: To cause print instructions in the program 
being loaded to be changed to write a tape record on 
the designated unit. FORTRAN assumes a 132 posi- 
tion printer on-line for the object program and this 
option would be necessary for a completely tape- 
oriented system. 

Option: Columns 30,31 Channel and tape unit 
Standard: On-line printer assumed 

OBJECT TAPE ASSIGNMENT 

Function: To designate the assignment of specific 
tape units for the tape numbers used in a FORTRAN 
statement. An OBJECT TAPE ASSIGNMENT control 
card should be included for each tape unit number 
used in FORTRAN statements, unless the standard 
assignment is acceptable. 



Option: 



Column 30 
Column 31 
Column 32 
Columns 33,34 
Column 36 



Standard: 



FORTRAN 

Tape Number Channel 



Designated channel 
Designated tape unit 

FORTRAN tape number 

U for even parity 
B for odd parity 



STANDARD ASSIGNMENT 



loader as a scratch tape on which to place items 
which would overlay the load routine itself. At the 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



Unit 
1 
2 
3 
4 
5 
6 
7 
8 
9 

1 
2 
3 
4 
5 
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FORTRAN 
Tape Number 

16 
17 
18 
19 
20 



STANDARD ASSIGNMENT 



Channel 

2 
2 
2 
2 
2 



Unit 

6 

7 



MODULE AVAILABLE 1301 

Function: To designate an area consisting of one or 
more consecutive 1301 disk cylinders to be used by 
the disk I/O library routine called by a FORTRAN pro- 
gram which includes disk statements. Four such 
areas may be designated by four control cards, pro- 
vided all are on the same channel, as specified in the 
CHANNEL NUMBER 1301 control card. 



Option: 



Column 30 Module number 

Columns 31-33 First cylinder number in 

the area 
Column 34 Number of consecutive 

cylinders 
Standard: 1 249 001 

Note 1: The first control card of this type replaces 
the assumed value; subsequent cards define additional 

areas. 

Note 2: The values from these control cards are 
loaded into core locations 00620-00652 where they 
are used by the disk I/O library routine. 

CHANNEL NUMBER 1301 

Function: To specify a channel and mode to be used 



by the disk I/O library routine called by a FORTRAN 
disk statement. 



Option: Column 30 



Standard: 



HOME ADDRESS 1301 



1 specifies channel 1, 
nonoverlap mode 

2 specifies channel 1, 
overlap mode 

3 specifies channel 2, 
nonoverlap mode 

4 specifies channel 2, 
overlap mode 

1, i.e. channel 1, non- 
overlap mode 



Function: To specify an HA2 which is common to all 
1301 tracks in the areas used by the disk I/O library 
routine. 

Option: Column 30,31 00-99 
Standard: 00 



MEMORY MAP 



Function: To cause the name, entry point and amount 
of relocation to be printed on the console typewriter 
for each routine at the time it is loaded. An example 

is given below. 

1 if the memory map is 

wanted 

if the memory map is not 

wanted for succeeding 

routines. 



Option: Column 30 



Standard: 







Exampl 


e: 






R 


INTRPRT 


00700 


00000 


R 


lOCOMMON 


02244 


01544 


R 


OPENING 


11572 


10872 


R 


CLOSEIO 


11598 


10898 


R 


ENTRYONE 


11624 


10924 


R 


ENTRYTWO 


11650 


10950 


R 


XXXAOPl 


11676 


10976 


R 


XXXAOP2 


11785 


11085 


R 


XFIX 


11939 


11239 


R 


FLOAT 


12170 


11470 


R 




12970 


12270 


R 


SORT 


14716 


14016 



The name of the routine is followed by the address 
of the initial executable instruction as determined by 
the TITLE card and the relocatable loader. The 
second number is the increment which must be added 
to every address on the assembly program listing to 
find its relocated value. The blank name followed by 
the above mentioned addresses represents the main 
program. Any routine(s) named after the main pro- 
gram consist of those which the loader has called in- 
to memory. 

WRITE RELOCATED TAPE 

Function: To cause the loader to write the relocated 
program on the tape unit normally used for inter- 
mediate tape instead of loading into storage. The 
tape will be self-loading; however, it must be loaded 
from the same channel and unit on which it was writ- 
ten. 



Do not write a reloca- 
table tape 

1 Write a relocatable tape 


This option precludes the necessity for an 
intermediate tape. However, the tape unit designated 
(or the assumed one) in the INTERMEDIATE TAPE 
UNIT will be used by this option. 

Note 2: This option precludes execution immediately 
following the relocation run. 



Option: Column 30 



Standard 
Note 1 
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PUNCH RELOCATED DECK 



Function: To cause the loader to punch the relocated 



program into cards in load card format, preceded or 
not by a five card load routine. 

Option: Column 30 Terminate punching 

1 Start punching 

2 Start punching and pre- 
cede the deck with a load 
routine. 

Standard: 

Note: This option does not effect nor is affected by 
the INTERMEDIATE TAPE UNIT and WRITE RE- 
LOCATED TAPE options. 

CLEAR MEMORY FROM 



Function: To cause the loader to put out a Clear Mem- 



ory routine and to designate an upper bound for the 
part of memory to be cleared. This should be used 
with either the WRITE RELOCATED TAPE or PUNCH 



RELOCATED DECK options to clear memory prior 
to reloading and perhaps to preserve a COMMON 
area. 

Option: Columns 30-34 Core storage address 
Standard: 39999 

SENSE SWITCH SETTINGS 

Function: To set the initial condition of the six simu- 
lated sense switches used in FORTRAN. If this 
control card is used, all six switch settings must 
contain a valid punch (0 or 1). Just prior to execu- 
tion of the relocated program, the loader will load 
the switch settings into core locations 00505-00510. 
No word marks are written. 



Option: Columns 30-35 



Standard: 



set corresponding 
switch off 

1 set corresponding 
switch on 

000000 
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PROGRAMMING CONSIDERATIONS 



Autocoder 

1. All programs utilizing relocation will begin 
assembling at 00700 unless otherwise specified by 
ORG card. 

2. Addresses below 00700 are not relocatable. 

3. A nonrelocatable indicator will be assigned to 
a label which is equated to an actual address. 

LABEL EQU 15000 

4. The following will be treated as a relocatable 
address constant: 

DCW LABEL-NAME 

5. The following combination is not allowed 

LABEL EQU NAME 

NAME EQU 900 
since the former implies relocatability and the latter 
nonrelocatability. 

Loader 



1. It is assumed that the first record will be read 
from the card reader. If the installation is tape- 
oriented, the user must modify the LOADER as 
follows: INPUT F must be changed to a 2 and TAPE 
must be altered to designate the proper channel, 
parity, and unit. This can be done by changing the 
cards in the symbolic deck of the loader and reas- 
sembling it. 

2. When using the automatic restart procedure, 
the tape table is not reinitialized; the loader will 
utilize the tape assignments from the previous job. 

3. It is suggested that all subroutines be loaded 
prior to the main program, since, otherwise, the 
forward reference table might overflow. There are 
provisions for only 150 such forward references. 

4. Format statements cannot be read at object 
time. 



OBJECT TIME CONTROL TABLE AND LOAD TIME 
CONTROL TABLES, which are loaded into core at 
object time. Control cards may be used to modify 
the values in the tables. 

INPUT AND OUTPUT AREAS used by the loader. 

TABLE 1 A 750 character table which stores 

the name and first executable instruction address of 
each routine that the loader processes. The table 
will accommodate 50 routine titles and the corres- 
ponding addresses. 

TABLE 2 A 2250 character table which stores 

the address and names of Subroutines called by 
DCWS and DCWF instructions, if the subroutine 
called has not been loaded prior to the call. The 
table will handle 150 forward references. 



AN INITIALIZER ROUTINE which sets up all initial 
values in the loader-initializer. 



AN INPUT ROUTINE which decides whether input is 
from cards or tape and loads accordingly. 



A DECIDER ROUTINE, which examines column 72 
at each card to determine the subroutine that will 
process the card. Each of the 6 subroutines pro- 
cess their own type of record. There is little pro- 
gramming that is common to any two of them. How- 
ever, subroutines like OUTPUTRTN and LADDING 
are used during several of the other routines. 



LOGIC DESCRIPTION 

The Loader consists of the following main parts: 

A TABLE which lists the meaning of each of the re- 
location indicators, RIEV: Relocation Indicator Ex- 
pansion Values. 

A TABLE OF THE RELOCATION INDICATORS (ARGU- 
MENT) matched with the address (function) where the 
meaning of the indicator is expanded, RIEV: This 
table is called the Relocation Table and referred to 
by the loader as RTABLE. 

CONSTANTS used by the loader. 



SUBROUTINES: The Title Card Routine: TITLECDRTN, 
does the following: 

1. Stores the address from the cards-ORG, EX, 
present common. 

2. Places the subroutine name and first execu- 
table address relocated, in table 1. 

3. Searches TABLE 2 to see if the routine has 
been called during the loading. If so, a branch re- 
cord output occurs with the address of the relocated 
called subroutine. 

If the routine has not yet been called, the location 
of the request is noted and a "patch" record will 
furnish the necessary information when the call is 
completed. 
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4. Writes the name, first executable instruction 
and amount by which the routine is relocated on the 
console if called for. See Memory Map Control Card. 

The Transfer Entry Card Routine: TRANSENTRY, 
performs the following functions: 

1. Relocates load address. Branches to LADDING 
subroutine. 

2. Searches TABLE 1 to see if the subroutine 
called has been loaded yet. 

a. If so, the subroutine address is placed in a 
branch instruction, or DCWF, output record. 

b.. If the called routine has not been loaded, the 
address of the branch instruction and pro- 
gram name are entered in table 2. 

Program and execute card routine (P and E): has the 
responsibility of relocating address on type 0, and 
1 cards, 

1. P and E Routine - This routine increases or 
decreases the A or B addresses for relocatable in- 
structions. Index 8 is used to point to the proper re- 
location indicator. Index 9 refers to the A or B ad- 
dress of each instruction on the card. 

The relocation indicator is looked up in RTABLE. 
The function in RTABLE is the address of a set of 
values in RIEV table which are used for each instruc- 
tion. 

The values indicate if the instruction has 1 or 2 
addresses, the total instruction length, and A and B 
field relocation characteristics. 

The routine loop is repeated for each instruction 
on the card. The two entry points for this routine 
are: 



PANDEOl: 



PANDE02: 



entry point for program cards (re- 
locatable) 

entry point for execute cards (not 
relocatable) 



Basically this routine relocates one instruction 
element at a time. X8 and X9 are used to control 
the flow of the data through the routine. 

X9 is used to track through the instructions. 
X8 tracks through the relocation indicators. 

Thus all instructions which affect an instruction to 
be loaded have an address INPUT + X9 and all instruc- 
tions which affect a relocation Indicator have an ad- 
dress of INPUT + X8. 

A program card has its first element starting in 
column 13 and its first relocation indicator in column 
71. Thus the DECIDERRTN sets 12 into X9 and 
branches to PANDEOl. PANDEOl relocates the Load 
address. X8 is then set to 70 thus relocation starts 
with the following situation. 



Col 1 



WWW 
SLLLLLSOOOCCS. . 



Input 



Input + X9 
(12) 



Col 71 



Input + X8 
(70) 



Col 72 


1 



A table look up is done on the character at INPUT 
+ X8 in table RTABLE to see where, in RIEV, this 
indicator is explained. 

RTABLE has entries of the form: 

V 

nnnOl 
where I is the indicator and nnn is the amount to add 
to the base address of Table RIEV to get the address 
of the expansion values of I. 

As a result of the table lookup nnn is stored in X6. 
The entry at RIEV + nnn will be one of three forms: 

a. @0@ (meaning no addresses are relocatable) 

@LL@ (length of element including W at its 
beginning) S 

b.@l@ (1 address to be relocated) 

@LL@ (length of instruction) 

@NN@ (number to be added to X9 so that 

counter will be at units position of ad- 
dress to be relocated) 
(relocation increment address) 



(upward reloca- 



(downward reloca- 



+DLADD) 

(or 

+DHADD) DLADD = Low Add. 

tion) 

DHADD = High Add. 

tion) 
c.@2@ (2 addresses to be relocated) 

@LL@ (length of instruction) 
@NN@ 

-t-DLADD (or -f DHADD) 
@NN@ Same as (2) 
-fDLADD (-fDHADD Same as (2) 

The program then tests C(RIEV + X6) Core (1) to 
see if it is zero. If so, it does no relocation; but 
steps X9 up by C(RIEV +2+ X6) (i. e. LL), subtracts 
1 from X8 and starts over again with the next ele- 
ment. 

If C(RIEV) + X6), =1 Core (2) , the program 

1 Adds C(RIEV -^ 4 + X6) to X9 (i. e. NN) 

2 Sets WM at INPUT -4 + X9 

3 Stores C(RIEV) -f 9 -f X6) in X5 

4 Adds X5 to INPUT + X9 & clear WM at IN- 
PUT -4 + X9 

5 Subtracts C(RIEV + 4 -i-X6) back off from X9 

6 See if there is a 2nd address to relocate 

(a) If so, repeat above. 

(b) If not, go to next element. 
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Form C28 -0287-1 
Page Revised 11/9/64 
By TNLN28-1186 

Pictorially: Let AAAAA be address to be relocated 
WWW 

INPUT: SLLLLLSOOOCCSOAAAAA I 

Input + X9 Input + X8 

KIEV 

KIEV + nnn @1@ X6 = OOnnn 

@13@ X8 = 00070 

@06@ X9 - 00012 

+DLADD 
Instructions 



a. Add KIEV + 4 + X6 to X9 
so that X9 sets at 18 

W W Wv 

SLLLLLSOOOCCSOAAAAA Input + X9 

b. Set WM at INPUT -4 + X9 

c. STORE C (KIEV + 9 + X6) into X5 

X5 + DLADD (Delta Low Address) 



d. 



Add + X5 to INPUT + X9 
WLLLLLWOOOCCWOAAAAA 
S S S Input + X9 

+DLADD 
Clear WM at INPUT -4 + X9 
Subtract RIEV + 4 + X6 from X9 so that the 
counter returns to its initial value. 
Compare RIEV + X6 to 2 if equal relocate 2nd 
address; if not Add RIEV + 2 X6 to X9 
Subtract 1 from X8 

and 
Proceed to next element . 



2. LADDING ROUTINE This routine is a 

closed subroutine used during the execution of the 
PANDE or TRANSENTRY routines. The value in 

the DHADD or DLADD counter is added to the card 
load address. The related address is compared to 
the high core position or assigned end of core to 
determine if the program exceeds core. If so, a 
console typewriter message is printed and the load- 
ing halts. If the loading is within core limits control 
is returned to the main routine. 



The Control Card Routine: 
all control cards. 



CONTROLRTN, processes 



The Final Execute Card Routine: Indicates the end of 
the present program. It sees how far the present rou- 
tine goes in core (exclusive of common) and sets the 
address counter (IL) to that amount +1 for the next 
program. 

The BLANKCDRTN: Handles the EOF condition and 
the sensing of a blank card. It will: 

1. Test to see if this was the library being loaded; 
if so it goes to the control card routine to reinitialize 
I/O for the next input. 

2. Test to see if Table 2 is not empty, indicating 
that subroutines are missing. 

3. Punches, or writes on tape, the object time 
control table if required. 

4. Test for relocated tape and autoload; if so it re- 
winds the tape, moves a load instruction and a clear 
memory routine to Low core and branches to them. 

5. If no auto/load program halts. 

Program Assembly Error Conditions 



The following conditions , arising during program 
assembly, may indicate that System Area 1 is in- 
adequate for assembly of the program . Corrective 
action is to perform a Build Run, providing addi- 
tional System Area 1 cylinders. 

1. Recursions, or successive alphabetic sequences 
of the symbol table 

2. A loop in FAZ4A 

3. The printing of object cards in an assembly 
listing 

4. The punching of assembly listing lines in an 
object deck 

5. Inconsistent errors in the operation code and 
operand fields of an assembly listing 

6. Incorrectly computed addresses 

7. A disk address developed outside of the al- 
located systems areas (this problem usually results 
in a "no record found" error message) 
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SUBROUTINES 

In addition to those listed in "IBM 1410 FORTRAN," 
Form J24:-1468, the following are also provided: 



XXXAOP3 

XXXAOP2 

XXXAOPl 

ENTRYTWO 

ENTRYONE 

OPENING 
INTRPRT 

SINCOS 

CLOSEIO 

ENFILETYP 

lOCOMMON 

FQTOVFL 

EXPONFF 

EXPONII 

REWINDTP 

BACKSPACE 

FDVDCHK 

FACOVFL 

EXPONFI 

SENSELIGHT 



Subscript calculator, triple 
dimension 

Subscript calculator, double 
dimension 

Subscript calculator, single 
dimension 

List of Entire Arrays for 
Input and Output 
List of Simple Variables for 
Input and Output 
Opens Files 

Floating Add, Subtract, Multi- 
ply and Divide 
Series Utilized for Sine and 
Cosine 



Loader -Library Tape 

The FORTRAN Relocatable-Program Loader and 
relocatable subroutines may be placed on tape to 
facilitate loading programs and related subroutines. 

Relocatable subroutines should be divided into two 
groups: 

1. Programs which should always be included in an 
object run. 

2. Programs which should be included only if 
called by other routines. 

The former group should include the following 
routines: 

lOCOMMON 

INTRPRT 

OPENING 

CLOSEIO 

XXXAOPl 

ENTRYONE 

ENTRYTWO 
The loader allows 150 branches to routines which 
are not loaded when the transfer occurs, the above 
routines being called most frequently could cause 
table overflow in large programs. 

Library Control Card 

A Library Control card is identified by a 9 punch in 
column 72 and performs two functions: 

1. The LIBRARY TAPE loader control card trans- 
fers loading to the library tape specified; relocation 
and loading continue until a Library Control card is 
encountered. 

2. The library search uses the Library Control 
card to indicate the end of each routine. 



Availability 

These routines are contained in a tape which is sup- 
plied by IBM. A program listing, resequenced 
symbolic deck , and a condensed deck may be ob- 
tained from this tape by utilizing the method contained 
in the system control section of Users and Opera- 
tor's Guide #1410- PR- 108. 

Special care should be exercised when punching the 
1410 FORTRAN II Subroutine Tape, #1410-FO-913 
(or listing or punching any 1410 tape), to use an IBM 
1410 or an IBM 1401 with the (J character no charge 
RPQ #898148, thus insuring correct interpretation 
of the ^ character as a 2-8 punch, and vice versa. 



Constructing a Library Tape 

The Library Tape is comprised of 80-character card 
images in odd parity. Once the Library Deck is built 
up, the Library Tape is created with an unblocked 
card-to-tape operation. A tape mark should end the 
Library Tape. The following paragraphs describe 
the building of the Library Deck. 

The first item of the deck should be a 5 -card loader. 
If a tape-oriented FORTRAN Loader is desired, the 
standard 5-card loader should be altered as follows 
for the Library to operate on drive n, channel 1: 



CARD 
CARD 



Columns 
Columns 



12-13 and 
49-50 



46-47 



from 11 to Bn 
from 11 to Bn 
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The second item of the Library Deck should be the 
FORTRAN Relocatable Loader. After the FORTRAN 
Loader, there should be a control card, ENTER FROM, 
specifying an I/O device on which the loading of the 
program will start. 

The fourth item of the Library Deck should be the 
essential package of library routines, followed by a 
type 9 card (the LIBRARY CONTROL Card). 

The nonessential routines, each one followed by a 
type 9 LIBRARY CONTROL Card, should follow the 
essential package. 

INCLUSION OF USER ROUTINES AT POS CREATION 

User- written macro-instructions may be incorpor- 
ated into the User Library section of the POS through 
a Build Run. Input may be punched cards , or card- 
image records on magnetic tape. 

For punched-card input, these steps are required: 
1 . The CREAT card for the Build Run must in- 
clude the operands USER, 1 to indicate that input 



to the User Library section is from the card reader 
(channel 1). 

2. The first INSER card in the card reader must 
be preceded by a USER START card , with a blank 
operand field, as shown in Figure 39. 

3. The MEND card of the last macro-instruction 
must be followed by a USER EOL card and an EOT 
card . 

The required coding is outlined in Figure C-1. 

For tape input, these steps are required: 

1. The CREAT card must include the operands 
USER, cu. The operand cu is the channel and unit 
on which the input exists ; cu must represent the 
System Tape if the macro-instructions were placed 
on the System Tape through a previous tape update 
run. 

2. The input tape must begin with an INSER card- 
image . 

3. The tape must end with a USER EOL card- 
image followed by an EOT card-image. 
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Figure C-1. Control Cards for Macro-instruction Inclusion at POS Creation 
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OPERATING INSTRUCTIONS 



If the Relocatable Loader and Library Routines 
are on the same tape reel: 

a. Mount Loader -Library on a channel 1 unit. 
Provide a Library Tape UNIT control card 
for this unit if any Library Routines are de- 
sired. 

b. Mount scratch tape for intermediate tape re- 
quirements, if any, on channel 1. Provide 
INTERMEDIATE TAPE UNIT control card. 

c. Arrange the cards in the reader in the se- 
quence shown below: 







Data 








' Blank Card 










Program Deck 








Control Cards 










Loader 





















d. At Console enter: 

1. clear memory 

2. display 00001 

3. alter 00001 to I%BX00257$J00257byy 
(X=loader-library tape unit) 

4. set mode switch to run status'i 

5. depress reset start 
If CARD LOADER: 

a. Mount scratch tape for intermediate tape on 
a channel 1 unit and provide an INTERMEDI- 
ATE TAPE UNIT control card, if desired. 

b. Mount other required tape and punch appro- 
priate control cards. 

c. Arrange control cards in the reader in the 
sequence shown in la. 

d. At CONSOLE ENTER: 

1. clear memory 

2. display 00001 ^ ^ 

3. Alter 00001 to L%1100257$J00257b. 

4. set mode switch to run status 

5. depress reset start 
Relocated Tapes and Decks 

a. Relocated Tapes are self-loading and should 
be mounted on the unit number (channel 1) on 
which they were written. Relocated decks 
should be preceded by the standard five card 
load routine. (This is one of the options 
whcjn punching a relocated deck.) 

b. No control cards or memory maps may be 
used. 

c. Place Data cards in Reader preceded by 
blank card. 



d. At console enter: 

1. clear memory 

2. display 00001 ^ ^ 

3. alter 00001 to L%BX00257$J00257b . 

4. set mode switch to start 

5. depress reset start 

X = Unit relocated program was written on. 

MESSAGES 

BAD CARD TYPE COL 72 

Explanation: The card relocation code (col. 72) is 
not acceptable, i.e. it is not 0, 1,3, 5,6, 7, 8, 9, C. 

Action: Clear reader and check figure punched in 
column 72 of this card. 
Clear memory and reload program, or 
Ignore card by pressing start, or 

Press computer reset and begin loading another pro- 
gram. 

BAD CONTROL CARD 

Explanation: Invalid control card or mispunched 
card^ Columns 1-5 checked for type C cards. 

Action: Clear reader, check card in control card 
explanation. Clear memory and reload program. 

MISSING SUBRTN XXXXXXX 

Explanation: Subroutine called during loading of 
program has not been found on library tape. Pro- 
gram can not be executed until this routine is loaded. 
Message 4a or 4b will follow, depending on whether 
or not FINAL INPUT TAPE option is used. 

Action: Note message 4a or 4b. 

START TO READ TAPE 

Explanation: The loader will attempt to read final 
input tape in search for missing subroutine indicated 
in message 3. 

Action: Check tape listing to see if Subroutine is 
included on input tape. If so, press start and load- 
ing will resume. 

START TO READ CARDS 

Explanation: The loader will attempt to read the 
missing subroutine indicated in message 3 from the 
card reader. 

Action: Place missing subroutine deck in card 
reader. Press start to resume loading. 

ERROR, NOTREADY, NO TRANSFER 

Explanation: Loader has entered error routine and 
displayed condition. 

Action: If error condition is NOT READY, ready 
imit and press start to continue. If error condition is 
NO TRANSFER, restart job from beginning. 
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CORE STORAGE EXCEEDED 

Explanation: The program, as being loaded, will 
exceed storage capacity. 

Action: Either reload with a higher memory speci- 
fied or recompile. 

THE END 

Execution of loading is completed. Load and go 
was not specified. 

ERb (actual I/O instruction) 
ERb (actual I/O instruction) 
NTb (actual I/O instruction) 

Correct condition specified and press start. In 
tape it attempts to read ten times; pressing start 
will not rectify situation. Should restart the job with 
a new tape. 
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OPERATOR'S GUIDE 



This section contains information required by ma- 
chine operators for running the POS using 1301 Disk 
Storage. 

THE START INSTRUCTION 

All runs are initiated by loading the Start instruction 
into core storage (location 00000) from the console 
typewriter. The format of the Start instruction follows: 

V V 

zLxxx00012$g 

z for the Build Run: 

1_ if control cards are to be read in from 

a card reader on channel 1. 
_2_ if control cards are to be read in from 

a card reader on channel 2". 
A if control cards are to be read in from 

magnetic tape on channel 1, unit 0. 
B if control cards are to be read in from 

magnetic tape on channel 2, unit 0. 
blank if control-card parameters are to 

be read from the System Tape, 
for Processor and Print Runs: 

blan k if the control cards are to be read in 

from the Initial Input Unit specified by the 

XXX field of the Start instruction, 
any other al phameric character if control 

cards are to be read in from the Initial 

Input Unit as specified by control parameters 

in disk storage. 
XXX The X-control field for the Initial Input Unit. 

(This must be for the non-overlapped mode. ) 
g Represents" a "Branch If Any I/O Channel 

Status Indicator On" operation code for the 
channel to which the Initial Input Unit is 
attached. This must be: 

R.,for channel 1, or 

2£for channel 2. 

BUILD RUN (Load Disk) 
To Initiate a Build Run 

1. Mount the System Tape on any unit on either 
channel. (The xxx field of the Start instruction 
must represent the X-control field for this tape 
unit. ) 

2. Place the required control cards in the Initial 
Input Unit. 

3. Alter in, starting at loca.tion 00000, the Start 
instruction. 

4. Press COMPUTER RESET and then START. 



5. At the message "30500 LD-UD," press 
INQUIRY REQUEST and enter "LD" at the 
console. 

6. Press INQUIRY RELEASE. This causes the POS 
to be loaded into disk storage. 

7. The end-of-job message is "00519 DISK LOAD 
END OF JOB." 

NOTE: If the Build Run is to be performed using 
cards for input, the first three card blocks illustrated 
in Figure 26 must be removed, and a standard load 
program substituted. The user's selection of GREAT 
and GONFG cards is placed between the load program 
and the Systems Load program deck. 

TAPE UPDATE RUN 

To Initiate a Tape Update Run 

1. Mount a scratch tape on any available unit at- 
tached to either channel. 

2. Mount the System Tape to be updated on any 
available unit attached to either channel. 

3. Alter in, starting at location 00000, the Start 
instruction. 

NOTE 1: It is recommended for most efficient op- 
eration, that the system tape and the scratch tape be 
on different channels. 

NOTE 2: The 1, A, and B entries of the Start in- 
struction have no effect during a Tape Update Run, 
but if a Build Run is to follow this Tape Update Run, 
the appropriate character should be inserted. If the 
user desires to have a copy of the System Tape 
created by the Tape Update Prograjn , place the let- 
ter "C" in the first position of the Start instruction. 

4. Press COMPUTER RESET AND START. 
At the message "30500 LD-UD," press 
INQUIRY REQUEST, and enter "UD" at the 
console. 

Press INQUIRY RELEASE. 
At the message "00514 ENTER I/O UNIT AS- 
SIGNMENTS," press INQUIRY REQUEST and 
enter xxx.yyy at the console, (xxx is the X- 
control field for the scratch tape, yyy is the X- 
control field of the unit from which the update 
data are to be read. ) 

Example: If the scratch tape is on unit 5 of 
channel 2 and the update data are tobe read from 
the card reader, enter the following seven char- 
acters: "nB5,%ll." 



5. 



6. 

7. 
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NOTE: If an UPDATE LIST card is being used, type 
bbbbyyy. If a System Tape copy is requested, enter 
XXX, % 11 (seven characters). 

8. The end -of -job message is "10509 UPDATE 
COMPLETED." 

BOOTSTRAP ROUTINE 

The Bootstrap routine must be placed into core stor- 
age prior to a Processor Run, Print Run, or Disk 
Update Run. This routine can be read into core stor- 
age from the Initial Input Unit as defined in the Start 
instruction or it can be entered directly into core 
storage via the console. If the Bootstrap routine is 
entered from the Initial Input Unit, the card shown 
in Figure 82 should be used. 

If the user enters the Bootstrap routine via the 
console, Alter in, starting at location 00012, the 
equivalent data shown in Figure 83. 

NOTE: If the Bootstrap routine is entered via the 
console, the Start instruction is not used. 



2. If the Bootstrap routine is in the Initial Input 
Unit: 

a. Alter in, starting at location 00000, the 
Start instruction. 

b. Press COMPUTER RESET. 

I£ the Bootstrap routine is entered via the 
console: 

a. Press COMPUTER RESET. 

b. Address set to "00018." 

3. Press START. 

4. The end-of-job message is "30599 EOB." 

COMPOUND RUNS 

To Load the POS Immediately After a Tape Update Run 

1. Press COMPUTER RESET and then START. 

2. At message "30500 LD-UD," press INQUIRY 
REQUEST and then enter LD at the console. 

3. Press INQUIRY RELEASE. 

To Initiate a Processor Run Immediately After a 
Build Run 



PROCESSOR, PRINT, AND DISK UPDATE RUNS. 

To Initiate a Processor, Print or Disk Update Run 

1. Ready the Initial Input Unit and the Source Input 
Unit. 



1 . Ready the Initial Input Unit and the Source Input 
Unit. 

2. Press COMPUTER RESET and then START. 

NOTE: If the Bootstrap routine is not on a card in 
the Initial Input Unit, a Processor Run cannot be 
initiated after a Build Run. 
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If SYSAREA 1 is on Channel 2, replace "%" with " Ff " 

If SYSAREA 1 is on Channel 2, replace "R" with "X" 

a =^ 

m = module number 

tttt = first track of SYSAREAl 

zz = HA2 of SYSAREAl 

b = blank 



Figure 82. Bootstrap Load Routine Card Image 
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Notes: 1 . If SYSAREA 1 is on Channel 2, replace "%" with " ^ 

2. If SYSAREA 1 is on Channel 2, replace "R" with "X" 

3. a=J2f 

m = module number 

tttt = first track of SYSAREAl 

zz = HA2 of SYSAREAl 

4. b = blank 

Figure 83, Bootstrap Routine, Console Entry 
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HALTS, MESSAGES, AND CORRECTIVE ACTIONS 

This section of the manual lists all the halts and 
messages (and associated corrective actions to be 
initiated by the machine operator) that can occur dur- 
ing the various types of POS runs , and runs of object 
programs produced by the POS. The list is divided 
into two sections: a list of halts, messages, and 
corrective actions for POS runs, and a similar list 
for object -program runs. 

Identifying Message Numbers 

Identifying numbers are composed of five digits , the 
significance of which is explained below: 
Ten-thousands position 

"0" — dead end waiting loop or halt 

"1" — message without a waiting loop or halt 

112" — waiting loop or halt with one corrective 

option 
11311 — waiting loop or halt with two corrective 

options 
"5" — waiting loop or halt with four corrective 

options 
ngii — waiting loop or halt with any number 
of corrective options 
Thousands position 

"0" 
Hundreds position 

"1-2" ■ — message from IOCS 
"5" -- message from POS 
"7" -- message from Autocoder Processor 
"8" ~- message from RPG Processor 
Tens and Units position 

These positions are used for an identifying se- 
quence number. 

Halts, Messages and Corrective Actions for 
POS Runs 

The tabulation of halts, messages and corrective 
actions for POS runs are arranged in numerical 
sequence based upon all five digits of the identifying 
message number. 



Operator Options for IOCS Error Conditions 
During POS Runs 

Many of the IOCS error messages provide for more 
than one corrective procedure. The desired pro- 
cedure is chosen by pressing INQUIRY REQUEST, 
entering the appropriate code word via the console , 
and pressing INQUIRY RELEASE. The corrective 
actions represented by the code words are as 
follows: 

RETRY — The IOCS will reattempt to execute 
the operation that caused the error. 

SKIP — The IOCS will ignore the operation 

that caused the error and will process 
the next record or block of records. 

PROC — The IOCS will ignore the error and 

resume processing as if the operation 
had been executed successfully. 

NOTE: Several of the error messages include the 
I/O instruction that resulted in the error condition. 
Error messages for read-tape operations also in- 
clude the length of the record in which the error 
occurred. These parts of the message are designated 
in the following list by "(I/O Op)" and "(R/L). " 



Operator Options for IOCS Console Inquiries 
During POS Runs 

The two following options are offered. The desired 
choice is made by entering the appropriate code 
word (or address) and pressing the INQUIRY 
RELEASE key. 

START — The IOCS will restore the status of 
the indicators and return control to 
the instruction that was interrupted by 
the console inquiry. 

XXXXX ~ "XXXXX" can be any valid storage ad- 
dress (indexing is permitted). The 
IOCS will branch to this location. 
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List of Halts, Messages and Corrective Actions 
POS Runs 

Messages and Explanation 



Corrective Action 



00510 SYSTAP WLR — RUN ENDED 

A wrong length record has been detected on the System 
Tape. (The tape may also be damaged.) 

00511 PATCH TAPE WLR — RUN ENDED 

A wrong length record has been detected on the tape 
from which update data are being read. (This tape may 
also be damaged. ) 



The job must be restarted. 



The job must be restarted. 



00513 OBJ PROGRAM ON DISK FILST, 
FILND HALT OR ENTER, HLTENT? 
The object program is in disk storage between FILST 
and FILND. FILST is the disk address of the first track 
and FILND is the disk address of the last track. 



00514 ENTER I/O UNIT ASSIGNMENTS 

The Update Program is requesting the I/O units descrip- 
tion for the new System Tape and for the unit from which 
update data are to be read. 



00519 DISK LOAD END OF JOB 

The System Load Program has run successfully. 



10100 NR (I/O Op) 

Input/Output device is not ready. 



10118 SKC 

A seek error has been detected. 



10505 RUN CARD PRESENT 

The EOJ card is missing from the source program. 



1. Press INQUIRY REQUEST 

2. Enter at the console: 

ENT (to proceed to the next job) or 
HLT (to halt) 

3. Press INQUIRY RELEASE 



1. Press INQUIRY REQUEST 

2. Enter the X-control field for the new Sys- 
tem Tape followed by a comma. 

3. Enter the X-control field for the unit con- 
taining the update data. 

4. Press INQUIRY RELEASE. 



If the user desires to start another run, see 
"Compound Runs" at the beginning of this 
section. 



Place device in Ready status. (Program will 
automatically resume when device is Ready.) 
NOTE: If this message is given because no 
tape unit is set to the given unit number, the 
tape unit must not be in a Ready status while 
the dial is being set to the correct number. 



IOCS will retry the operation. If this error 
persists, the 7631 File Control should be 
inspected for a detailed indication of the error 



No action is required. The program will con- 
tinue. 

NOTE: If any CONFG cards were associated 
with the job referred to by this message, the 
parameters on the CONFG cards will not be 
applied to this job. 
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Messages and Explanation 



Corrective Action 



10506 EOF CONDITION 

The EOJ card is missing from the last source program. 



No action is required. The program will con- 
tinue. 



10509 UPDATE COMPLETE 
End-of-job message. 



If the user desires to load the updated POS 
into disk storage: 

1. Press COMPUTER RESET. 

2. Press START. 



10512 IMPROPER INQUIRY RESPONSE 

The previous inquiry was answered incorrectly. 



1. Press INQUIRY REQUEST. 

2. Enter the proper response. 

3. Press INQUIRY RELEASE. 



10515 SEQ ER xxxx nnnnn 

Card xxxx in Library section nnnnn is out of sequence. 



The program will continue. The card will be 
internally sequenced by the System Load Pro- 
gram. 



10516 UNIDENTIFIED INPUT 

Unidentified data is encountered by the System Load 
Program. 



Check the Start instruction for proper oper- 
ands, and the control cards for proper 
entries, and restart. 



10518 EX CD IGNORED 

An execute card was encountered during the System 
Load Program. 

10524 UNIDENTIFIED SYSTEM FOR CREATE 

An unidentified system program has been requested 
during a Build Run. 

10529 NO CTL CD — CORRECT AND PRESS START 
Current card is not the required CTL card. 



10531 SYSAREA 1 STARTS ON TRACK xxxx. 
ENDS ON TRACK xxxx 

Message gives new disk area limits of updated system at 
end of a Disk Update Run. 

10532 INVALID MACHINE SIZE SPECIFIED IN CONFG CARD 
CARD-NOT PROCESSED 

Self-explanatory produced during an UPDAT CONFG run. 
The previous OBJSIZE or MACHSIZE is retained. 

10533 UPDATE COMPLETE 
DISK Update EOJ Message 

10534 EX CD IGNORED 

An execute card other than a set wordmark card has been 
encountered and bypassed. 



The program will continue. 



No action is required. The program will 
proceed, ignoring the request. 



Press START to read the next card. (Each 
time START is pressed, the message will 
be repeated until a CTL card is encountered.) 



No action required the program will continue. 



No action required. 



No action required. 



No action required. 
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Messages and Explanation 



Corrective Action 



10535 TRYING TO LOAD PAST END LOCATION-RUN 
DISCONTINUED. 



10590 FORTRAN PROCESSOR NOT AVAIL 
The FORTRAN Processor requested is not on the System 
Tape. 



No action is required. The request is ignored 
and the program continues. 



10591 COBOL PROCESSOR NOT AVAIL 

The COBOL Processor requested is not on the System 
Tape. 



No action is required. The request is ignored 
and the program continues. 



10592 COBOL MACROS NOT AVAIL 

The COBOL section requested of the library is not on 
the System Tape, 



No action is required. The request is ignored 
and the program continues. 



10701 (JOB Card Image) 

This informs the operator that the source program speci- 
fied in the Job Card is being run. 



No action is required. The program continues. 



10704 EOJ — LITERAL TABLE EXCEEDED 

The program being assembled contains more incomplete 
EQU and literals than allowed (see Figure 30). 



Run is terminated and the next job (if any) is 
started. User should rearrange his EQU 
statements so they are defined as they are 
processed and/or reduce the number of lit- 
erals used. 



10705 EOJ ~ EQU TABLE EXCEEDED 

The program being assembled contains more than 120 
incomplete EQU statements at one time (see Figure 30). 



The run is terminated and the next job (if any) 
is started. User should rearrange EQU state- 
ments so that they are defined as they are 
processed. 



10706 EOJ — MACHINE OR PROGRAM ERROR 

xxxxx WLR 

(xxxxx is the name of a macro-instruction. ) The block - 
size count contained in the library does not agree with 
the computed size. 



The run is terminated and the next job (if any) 
is started. Processing will continue. The 
user should carefully check all usage of 
macro-instruction xxxxx. 



10801 END RPG 

This indicates the end of compilation and the beginning 
of assembly. (This message will not occur if the user 
has taken the option to terminate the run without assem- 
bling. ) 



No action is required, 
tinue . 



Processing will con- 



10802 EOJ — NO RG CONTROL CARD 

The RG Control Card has been omitted from the RPG 
specification deck. 



Processing is terminated and the next job (if 
any) is started. Insert the required control 
card and restart this program. 



50 



Me s s ages and Explanation 



Corrective Action 



10803 EOJ — NO 1405 CONTROL CARD 

The 1405 Control Card has been omitted from the RPG 
specification deck. 



10804 EOJ — NO 1301 CONTROL CARD 

The 1301 Control Card has been omitted from the RPG 
specification deck. 



Processing is terminated and next job (if any) 
is started. Insert the required control card 
and restart this program. 



Processing is terminated and the next job (if 
any) is started. Insert the required control 
card and restart this program. 



10805EOJ — ERRONEOUS RG CARD 

The RG Control Card has erroneous entries, 
error sources are: 

1. Data file not specified in column 7. 

2. Wrong mode specified in column 65. 

3. Column 8 may specify wrong channel. 



Possible Processing is terminated and the next job (if 

any) is started. Insert the required control 
card and restart the RPG Processor Run. 



10806 EOJ — ERRONEOUS 1301 CARD 

The 1301 Control Card has erroneous entries. Possible 
error sources are: 

1. No record length specified in columns 6-9. 

2. No disk channel specified in columns 42-43. 

3. No address length or control data field specified 
in columns 30-31. 

4. For Modes 1, 2, 5, 6: 

a. No "F" in column 5. 

b. Disk address or control -data -field lengths not 
specified in columns 19-20. 

c. Distance between consecutive disk addresses 
or control data fields not specified in columns 
21-23. 

d. Units position of first address or control -data 
field not specified in columns 24-26. 

5. For Modes 3 and 4: 

a. No block length specified in columns 10-13. 

b. No blocking factor specified in columns 14-17. 

6. For Modes 5 and 6: 

a. -No record length specified in columns 40-41. 

b. No next-record location specified in columns 
36-39. 



Processing is terminated and the next job (if 
any) is started. Insert the required control 
card and restart this program. 



10807 EOJ — NO C OR * IN COL 1 OF INPUT SPEC 
Either a "C" or an "*" card is missing from the input 
specifications in the RPG specification deck. 



Processing is terminated and the next job (if 
any) is started. Insert the required control 
card and restart this program. 



10808 EOJ — NO * CARD BEFORE FORMAT SPECS 
An asterisk card has been omitted from the RPG speci- 
fication deck. 



Processing is terminated and the next job (if 
any) is started. Insert the required control 
card and restart this program. 
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Corrective Action 



10809 NO OUTPUT SPECIFIED ON LINE FORMAT SPEC 
The output has not been specified in the format specifi- 
cations in the RPG packet. 



20114 DCK (I/O Op) 

Data Check error condition on a write-tapc operation. 
(The IOCS first back-spaced the tape and attempted to 
rewrite the record, but the error persisted. The IOCS 
then performed a backspace-skip-rewrite sequence 
twenty times. The record could still not be success- 
fully written.) 

20115 LLC (I/O Op) 

The last line printed or the last card punched contained 
an error. 



Processing is terminated and the next job (if 
any) is started. Insert the required informa- 
tion on the format specification cards, and 
restart this program. 



The only possible option for a tape output 
error is to attempt the write operation again. 
This option is assumed by the IOCS if the oper 
ator presses INQUIRY REQUEST and then 
INQUIRY RELEASE. (No code word is 'neces- 
sary. ) 



The IOCS cannot reprint or repunch records 
containing an error. To resume program 
execution, press INQUIRY REQUEST and the 
INQUIRY RELEASE. (No code word is neces- 
sary. ) 



20116 DCK (I/O Op) 

Data Check error condition on a unit-record operation. 
(The IOCS has tried the operation twice, but the error 
persists. ) 



The only possible option is to attempt the oper- 
ation again. This option is assumed by the 
IOCS if the operator presses INQUIRY RE- 
QUEST and then INQUIRY RELEASE. (No 
code word is necessary.) 



20117 ZRL (I/O Op) 

Zero record length. (The first character of an output 
area for a write-tape operation is a group mark with 
word mark. ) 

20143 STK (I/O Op) 

No Transfer error on a read-card operation. (This is 
a programming error in the object program. See the 
1410 machine manual, ) 

20144 WLR (I/O Op) 

Wrong-Length -Record error condition on a unit -record 
operation. 



PROC 



To cause the IOCS to ignore the error and 
continue processing, press INQUIRY RE- 
QUEST and then INQUIRY RELEASE. 



The only possible option is to try the oper- 
ation again. This option is assumed by the 
IOCS if the operator presses INQUIRY RE- 
QUEST and then INQUIRY RELEASE. (No 
code word is necessary.) 



20183 CI (*) 

The last information entered through the console was 
invalid or cancelled by the operator. 
(*) In some cases, the information written in this area 
of the previous IOCS message (for example, "(I/O Op)") 
is still in storage and is rewritten with this message. 
This can be helpful in locating the previous IOCS mes- 
sage in order to determine what the correct console 
entry should have been. 



Press INQUIRY REQUEST, enter the correct 
information, and then press INQUIRY RE- 
LEASE. 
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Messages and Explanation 



Corrective Action 



20501 (No Indicative Message) 

The Bootstrap Program has failed to load properly. 



1, Restart the job in its entirety. 



20502 RUN CARD ERROR (Label) 

An invalid RUN card (identified by "Label") is included 
in the source program. 



1. Press INQUIRY REQUEST 

2. Enter the proper label at the console. 

3. Press INQUIRY RELEASE. 



20503 CONFG OPR ERR (Label) 

A CONFG card (identified by "Label") with an invalid 
operand has been detected. 



1. Press INQUIRY REQUEST. 

2. Enter the proper operand at the console. 

3. Press INQUIRY RELEASE. 



20507 OBJECT PROGRAM TAPE REQUIRES NEW REEL. 
PRESS START TO CONTINUE. 

The rewind-after-each-object-program option has been 

requested. 



1, Mount a new tape reel. 

2. Press START. 



20517 ILLEGAL INPUT CARD 

The format of the card being processed is not accept- 
able to the System Load Program. 



1. Display symbolic location "INAREA. " 

2. Correct any format errors. 

3. Branch to symbolic location "PROXX. " 



20520 xxxxxxxxxx yyyyy 

CONFG card with label xxxxxxxxxx has an improper 
yyyyy ("LABEL" or "OPRND") field. 



1. Press INQUIRY REQUEST. 

2. At the console enter the proper label 
or operand. 

3. Press INQUIRY RELEASE. 



20522 CONFG LAB ERR (Label) 

A CONFG card (identified by Label) with an improper 
label has been encountered. 



1. Press INQUIRY REQUEST. 

2. Enter the proper label at the console, 

3. Press INQUIRY RELEASE. 



20523 ENT CONFG OPR (Label) 

This message will follow message "20522, 



1. Press INQUIRY REQUEST. 

2. Enter the proper operand at the console, 

3. Press INQUIRY RELEASE, 



20525 RUN OPR ERR (Operand) 

A RUN card with an invalid operand has been encoun- 
tered-. 



1. Press INQUIRY REQUEST. 

2. Enter the correct operand at the console. 

3. Press INQUIRY RELEASE. 



20526 NO RUN CARD 

A RUN card has been omitted from the source program. 



1. Press INQUIRY REQUEST. 

2. Enter the RUN card label at the console. 

3. Press INQUIRY RELEASE. 



20527 EXAMINE DECK SETUP-RUN ENDED 

The update data are incorrectly arranged, or a card is 
mispunched. 



1. Correct the update data. 

2. Restart the Update Run. 
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Corrective Action 



20530 NO CTLCD-CORRECT AND PRESS START 

The first card after the SYSTEM RUN card for a Disk 
Update run is not an UPDAT, INSER, or DELET card. 



Restart the run or reload the deck until a 
control card first and press start. 



30181 HLT xxxxx 

The IOCS is ready to accept information through the 
console. All channels are free ("xxxxx" is the Re- 
sumption Address). 



1. START 

2. XXXXX 



30500 LD-UD 

Either the System Load Program or the Update Pro- 
gram is to be run. 



1. Press INQUIRY REQUEST. 

2. Enter at the console: 

"LD" for System Load Program, 
for Update Program. 

3. Press INQUIRY RELEASE. 



'UD' 



30508 LISTING ON DISK FILST, FILND. PROCEED OR 

ENTER. PRO-ENT 

The object program listing is in disk storage between 
FILST and FILND. FILST is the disk address of the 
first track and FILND is the disk address of the last 
track. 



3. 



Press INQUIRY REQUEST. 
Enter at the console: 
PRO (to proceed with the output) , 
ENT (to start the next job. ) 
Press INQUIRY RELEASE. 



30521 aaaaa EOF n x 

A processor has attempted to use a track which is not 
within a defined system area, 
aaaaa — address of file 
n — System Area of file 
X — "I", if input file, or "O" if output file. 
For input files this message can be the result of an 
invalid format of the System Areas. For output files 
this message is usually caused when not enough cyl- 
inders are defined for the System Areas. If the con- 
dition occurs in System Area 1, increase this area. 
If the condition occurs in System Area 2, 3, or 4, 
increase each of these three areas. (See Cylinder Re- 
quirements in section on Detailed Machine Require- 
ments and Considerations. ) 



If the user has more jobs to run in this batch: 

1. Press INQUIRY REQUEST. 

2. Enter CONT at the console. 

3. Press INQUIRY RELEASE. 



30599 EOB 
End of Batch 



To start another batch of jobs: 

1. Place the data into the main input unit. 

Place CONFG cards (if any) into the 

Initial Input Unit. 

Do not enter the Bootstrap program. (It 

is not required. ) 

Press INQUIRY REQUEST. 

Enter "CONTb" at the console. 

Press INQUIRY RELEASE. 



2. 



54 



Messages and Explanation 



Corrective Action 



40110 DCK (I/O Op) (R/L) 

Data Check error condition on a read-tape operation. 
(The IOCS attempted to read the record twenty times, 
but the error persisted.) 



1. RETRY 

2. SKIP 

3. PROC 



40117 CHC 

Format Character Check 
Check Character Code Check 
Parity Check 
Write Disk Check 



1. SKIP 

2. PROC 

3. REDO 



40528 NO END CARD 

There is no END card in the Update Program. 



If the user is duplicating the System Tape 
only and desires to continue: 

a. Press INQUIRY REQUEST. 

b. Enter COPY at the console. 

c. Press INQUIRY RELEASE. 

If the user desires to stop the run and 
rewind all tapes: 

a. Press INQUIRY REQUEST. 

b. Enter HALT at the console. 

c. Press INQUIRY RELEASE. 

If the user desires to continue the Update 
Run: 

a. Press INQUIRY REQUEST. 

b. Enter CONT at the console. 

c. Press INQUIRY RELEASE. 



40150 CND 

Wrong Length Format, or File Control Circuit 



40151 NRF 

No Record Found, or Disk Storage Circuit Check 
(See RPG CONSIDERATIONS also.) 



40152 ITN 

Invalid Track Number 



40153 WLR 

Wrong-Length Record 



40182 HLT xxxxx 

The IOCS is ready to accept information through the 
Console. All Channels are free, ("xxxxx" is the Re- 
sumption Address.) 



1. SKIP 

2. PROC 

3. REDO 



1. SKIP 

2. PROC 

3. REDO 



1. SKIP 

2. PROC 

3. REDO 



1. SKIP 

2. PROC 

3. REDO 



1. START 

2. XXXXX 
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Corrective Action 



xxxxx OPERAND # yyy MISSING 

Required parameter yyy is missing from macro-instruc- 
tion xxxxx. 



Compilation continues. User should check 
usage of macro xxxxx. 



P/L xxxxx (Message) 

This is the format of messages produced by the diagnos- 
tic portion of the library subroutines, written by the 
user, xxxxx is the name of the macro-instruction that 
calls in the subroutine. 



The action to be taken (if any) is specified by 
the user's subroutine. 



COBOL Processor Run Messages (Console) 

The following messages do not cause the processor 
to stop compilation: 

1. BEGIN COBOL RUN 

2. (name-of-job) CB-NNNN (identification field) 
Note: NNNN is the version and modification 
number which will be supplied by the compiler. 

Each of the following messages will terminate com- 
pilation; the output from the job concerned will be 
produced and the processor will continue with the 
next job. 

1. IMPROPER ID DIVISION, RESTART COBOL 
RUN. Action - job must be rerun after insuring 
that the IDENTIFICATION (ID) DIVISION card 
immediately follows the COBOL RUN card. 

2. INSERT PROGRAM-ID PARAGRAPH. RESTART 
COBOL RUN. Action - job must be rerun after 
insuring that the PROGRAM-ID paragraph im- 
mediately follows the ID DIVISION Card. 

3. RUN DISCONTINUED — SEE DIAGNOSTIC 
Action - job must be rerun after source pro- 
gram has been corrected. 

The following message may be produced by an un- 
correctable error, (machine failure, undetected 
source program error, etc.) 

COBOL HALT XXXXX/YYYYY, XI = ZZZZZ 
DUMP or PRESS START FOR OUTPUT 
Note: XXXXX is the name of phase during which 
the error occured. 

YYYYY is the address of the last instruc- 
tion executed in the phase. 
ZZZZZ is the contents of XI. 
After the message the processor halts. At this 
point the operator has the option of either: 



1. taking a MEMORY DUMP 

2. Pressing START to obtain the output from the 
job concerned and to continue with the next job. 

F ORT RAN Processor Run Messages (Console) 

NO BOP CARD 

Run cards out of card reader , Load - BOP - 
Card. Reload cards in card reader and ready it. 
Press start to continue. 

SUBPROGRAM NAME DIFFERS FROM BOP CARD 
After the halt, correct the BOP card, reload and 
press start to continue. Proceeding without cor- 
rection (press start) will result in the end card 
having an improper branch and prior to executing or 
assembling this must be corrected. To discontinue 
the run and start another job, the system must be 
readied manually by rewinding tapes , keying in 
load program, etc. 

EXCEEDED ARRAY TABLE SIZE 

This message will be printed on the console if the 
source program contains too many different array 
names. The source program must be revised if this 
diagnostic message occurs. Run terminates. To 
start another job the system must be readied manu- 
ally. 

END OF BATCH 

If input to Autocoder was specified, the Autocoder 
run will begin. Otherwise, the system will come to 
a halt. 

ILLEGAL OUTPUT OPTION SPECIFIED 
The run will terminate. 
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Halts, Messa ges and Corrective Actions for Object 
Program Runs 

The tabulation of halts, messages and corrective 
actions for object program runs are arranged in nu- 
merical sequence of the three low-order digits of the 
identifying message numbers. 

The RPG object program messages, which do not 
have identifying message numbers, are listed inalpha- 
betical order. 

Operator Options for IOCS Error Conditions During 
Object Program Runs 

Many of the IOCS error messages provide for more 
than one corrective procedure. The desired proce- 
dure is chosen by pressing INQUIRY REQUEST, 
entering the appropriate code word via the console, 
and pressing INQUIRY RELEASE. The corrective 
actions represented by the code words are as follows: 
RETRY —The IOCS will reattempt to execute the 

operation that caused the error. 
SKIP ~ The IOCS will ignore the operation that 
caused the error and will process the 
next record or block of records. 
PROC ~ The IOCS will ignore the error and re- 
sume processing as if the operation had 
been executed successfully. 
ACCEPT— The IOCS will ignore the error. (This 
option is offered for errors caused by 
tape labels.) 
DUMP — The IOCS will write the record that con- 
tains the error onto the output error 
file. After writing the record on that 
file, the IOCS will again enter a waiting 
loop and write the same error message, 
enabling the operator to continue proc- 
essing with another option. (This option 
is offered only if an output error file was 
designated by a DIOCS "READERROR" 
entry containing both the "SCAN" and 
"TAPE, #2, lY" operands.) 



*SCAN — The IOCS will type the location(s) of the 
asterisk(s) in the record. After typing 
the location(s) , the IOCS will again 
enter a waiting loop and write the same 
message, enabling the operator to con- 
tinue processing with another option. 
(This option is offered only if the DIOCS 
"READERROR" entry contains the oper- 
and "SCAN. ") 

NOTE: Several of the error messages include the 
I/O instruction that resulted in the error condition. 
Error messages for read-tape operations also in- 
clude the length of the record in which the error 
occurred. These parts of the message are desig- 
nated in the following list by "(I/O Op)" and "(R/L). " 



Operator Options for IOCS Console Inquiries During 
Object Program Runs 

The following three options are offered when an in- 
quiry request is made from the console and no sup- 
port for the DIOCS "INQUIRY" entry was provided 
in the program. (That is, the programmer has not 
written a routine that processes console inquiries.) 
The options are chosen by entering the code word 
(or address) and pressing the INQUIRY RELEASE key. 
START — The IOCS will restore the status of the 
indicators and return control to the in- 
struction that was interrupted by the 
console inquiry. 
CHKPT — The IOCS will cause a checkpoint to be 

taken and will then return to the inquiry- 
request waiting loop. The operator 
then has the choice of terminating the 
run or resuming it (by using the START 
option). 
XXXXX — "XXXXX" can be any valid storage ad- 
dress (indexing is permitted). The 
IOCS will branch to this location. 
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List of Halts , Messages and Corrective Actions 
Object Program Runs 



Messages and Explanation 

IOCS Messages 

00255 ARM 
No access arm is available 

10100 NR (I/O Op) 

Input /Output device is not ready. 



10111 DCK (I/O Op) (R/L) 

Data Check error condition on a read-tape operation. (The 
IOCS attempted to read the record twenty times , but the 
error persisted. The IOCS has written the record on the 
output error file , as specified by the operand of the DIOCS 
"READERROR" entry.) 

10118 SKC 

A seek error has been detected. 



10125 EOF 

Sequential end-of-file has occurred, 
tive message. There is no halt. 



This is an informa- 



10185 CPT ccc 

The IOCS has taken a checkpoint, "ccc" is the ac- 
cumulated count of checkpoints taken since the start 
of the program . 

10254 xyz 

X, y, or z can be "0" or "1." If "0" then the error type 

is not applicable. Error types are as follows: 

X = No Transfer 

y = Busy 

z = Wrong Length Record 

10257 auc 
Where: 

a - identifying arm number 
u = identifying unit number 
c = identifying channel number 

The program has removed the arm identified above from 
the list of available arms. 



Corrective Action 



The program cannot proceed. 



Place device in Ready status. (Program will 
automatically resume when device is Ready.) 
NOTE: If this message is given because a 
tape unit is set to a wrong number , the tape 
unit must not be in a Ready status while the 
dial is being set to the correct number. 



None. (The IOCS does not enter a waiting 
loop for operator action. ) 



IOCS will retry the operation. If this error 
persists, the 7631 File Control should be 
inspected for a detailed indication of the error 



The program will continue. 



None. (The IOCS does not enter a waiting 
loop for operator action.) 



T he program will automatically reattempt 
execution of the I/O instruction. 



The program will automatically resume oper- 
ation with the available arms. 
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Corrective Action 



20258 OPN xxxxx 
GET 

^n invalid disk address has been encountered starting at 
location x;>acxx. 



The operator must: 

1. Change the information starting at location 
xxxxx by performing the standard ALTER 
procedure. 

2. Press INQUIRY REQUEST. 

3. Press INQUIRY RELEASE. 

4. The program will resume processing. 



10314 TIE (cu) 
be re ht (*) 
be re ht (**) 

Trailer Label-In-Error. "be" is the block count, "re" is 
record count, "ht" is the hash total. Record counts and 
hash totals are given only if specified by the DIOCS 
"COUNTS" entry. 
Block counts are always given. 
(*) This line is taken from the trailer label. 
(**) This line is accumulated by the IOCS. 

20114 DCK (I/O Op) 

Data Check error condition on a write-tape operation. (The 
IOCS first back-spaced the tape and attempted to rewrite 
the record, but the error persisted. The IOCS then per- 
formed a backspace-skip-rewrite sequence twenty times. 
The record could still not be successfully written.) 



None. (The IOCS does not enter a waiting 
loop for operator action. ) 



The only possible option for a tape output 
error is to attempt the write operation again. 
This option is assumed by the IOCS if the oper- 
ator presses INQUIRY REQUEST and then 
INQUIRY RELEASE. (No code word is neces- 
sary. ) 



20115 LLC (I/O Op) 

The last line printed or the last card punched contained 
an error. 



The IOCS cannot reprint or repunch records 
containing an error. To resume program 
executio-n, press INQUIRY REQUEST and the 
INQUIRY RELEASE. (No code word is neces- 
sary.) 



20116 DCK (I/O Op) 

Data Check error condition on a unit-record operation. 
(The IOCS has tried the operation twice, but the error 
persists.) 



The only possible option is to attempt the 
operation again. This option is assumed by 
the IOCS if the operator presses INQUIRY 
REQUEST and then INQUIRY RELEASE. (No 
code word is necessary. ) 



20117 ZRL (I/O Op) 

Zero record length. (The first character of an output 
area for a write-tape operation is a group mark with word 
mark. ) 

20120 EOR (cu) 

Input or output end-of-reel condition. (This message is 
given only for files that have not been assigned an alter- 
nate tape unit. ) 



PROC 



Mount the next reel, press INQUIRY REQUEST 
then INQUIRY RELEASE. 
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Corrective Action 



20136 RLN 

The RDLIN macro-instruction was executed, but the card 
read by the IOCS was not recognized as a label card (i.e. , 
columns 16-30 did not contain "RDLIN"). 



20143 STK (I/O Op) 

No Transfer error on a read-card operation, 
a programming error in the object program. 
1410 machine manual.) 



(This is 
See the 



20144 WLR (I/O Op) 

Wrong-Length-Record error condition on a unit-record 
operation. 



20183 CI (*) 

The last information entered through the console was 
invalid or cancelled by the operator. 
(*) In some cases, the information written in this area 
of the previous IOCS message (for example, "(I/O Op)") 
is still in storage and is rewritten with this message. 
This can be helpful in locating the previous IOCS mes- 
sage in order to determine what the correct console entry 
should have been. 



Place a label card in the card reader. Press 
INQUIRY REQUEST and then INQUIRY RE- 
LEASE. (The RDLIN will be re-executed. ) 



To cause the IOCS to ignore the error and 
continue processing, press INQUIRY RE- 
QUEST and then INQUIRY RELEASE. 



The only possible option is to try the oper- 
ation again. This option is assumed by the 
IOCS if the operator presses INQUIRY RE- 
QUEST and then INQUIRY RELEASE. (No 
code word is necessiary. ) 



Press INQUIRY REQUEST, enter the correct 
information, and then press INQUIRY RE- 
LEASE. 



20186 RST 

The IOCS has made the program ready for restarting (from 
a checkpoint). This waiting loop allows the operator to per- 
form additional "setups," if any are required. 



To begin execution at the restart point, press 
INQUIRY REQUEST and then INQUIRY RE- 
LEASE. 



20259 INVALID 
PUT AT 
xxxxx 

A PUT has been attempted on a record which does not 
exist, xxxxx is the address of the invalid record address. 



20260 SKC 
SEEK Error 



The operator must: 

1. Press INQUIRY REQUEST. 

2. Press INQUIRY RELEASE. 

3. The program will continue processing, 
bypassing the invalid PUT. 



The operator must: 

1. Press INQUIRY REQUEST. 

2. Press INQUIRY RELEASE. 

3. The program will continue, repeating the 
SEEK operation. 
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Corrective Action 



30132 FIL (cu) 

(*) 1- 

The header label indicates that this is not the correct input 2. 

tape. 

(*) The file serial number, reel sequence number, file name, 

and the creation date from the header label. 

(**) The above information as specified by the DTF entries. 



30133 NIH (cu) 

No input header label found by the IOCS. 



30181 HLT xxxxx 
or 

40182 HLT xxxxx (*) 

The IOCS is ready to accept information through the con- 
sole. All channels are free, ("xxxxx" is the Resumption 
Address.) 

(*) This message is given if a DIOCS "CHECKPOINT" 
entry was written for the program. 



RETRY (After mounting the correct input 

tape.) 

ACCEPT 



RETRY 

ACCEPT (This means the IOCS will ac- 
cept the first tape record as a "false" 
header label and treat the next tape record 
as the first data record. Therefore, if 
the tape does not actually contain a header 
label, the operator must rewind the tape 
to load point.) 



START 

CHKPT (This option can be used only when 

the 40182 message is given.) 

XXXXX 



30256 xyz 

X, y, or z can be "0" or "1. " If "0," then the error type 
is not applicable. Error types are as follows: 
X = No Transfer 
y = Condition 
z = Data Check 



The operator can have the IOCS skip or proc- 
ess the record involved: 

1. Press INQUIRY REQUEST 

2. Enter SKIP or PROC at the console 

3. Press INQUIRY RELEASE 

4. The program will continue 
Notes: 

1. The user may alter the disk address prior 
to entering SKIP or PROC by performing 
the standard ALTER procedure with the 
following limitations: 

(a) Addresses cannot be changed if se- 
quential processing is used. 

(b) Address changes must be within the 
same channel. 

2. PROC cannot be used with a No Transfer 
error ("1" in the "x" position). 



30257 PUT 
This indicates a logic error in the issuing of the 
PUT macro -instruction in the user-written program. 



None. 



40110 DCK (I/O Op) (R/L) 

Data Check error condition on a read-tape operation. 1. RETRY 

(The IOCS attempted to read the record twenty times, but 2. SKIP 

the error persisted. ) 3. PROC 
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Corrective Action 



40117 CHC 

Format Character Check 
Check Character Code Check 
Parity Check 
Write Disk Check 



1. SKIP 

2. PROC 

3. REDO 



40130 NOH (cu) 

No output header label found by the IOCS. 



40131 DAT (cu) 

Date or retention cycle on the header label of an output 
tape indicates the present tape records should not be 
destroyed. 



40150 CND 

Wrong Length Format, or File Control Circuit Check. 



3, 



1. 
2. 
3. 



RETRY 

ACCEPT (This means the IOCS will ac- 
cept the tape as unlabeled and therefore 
cannot check the date or retention cycle.) 
The operator may key the date through the 
console (yyddd format, where yy is the 
year and ddd is the day) . The IOCS will 
move the date to storage positions 115-119 
and will automatically RETRY the header 
label check. (Although this option is not 
a corrective procedure, it is offered to 
enable the operator to store the current 
date through the console, in the event the 
date was not loaded by card. This option 
also insures that the new output header 
labels will have the correct date. ) 



RETRY (After mounting a "scratch" tape.) 
ACCEPT 

The same as option 3 for the preceding 
message (40130 NOH). (This option is 
offered to cover the possibility that the 
absence of a date in locations 115-119 
caused this message to be given. It also 
prevents the creation of header labels 
with blank date fields. Tapes with such 
a label will always be treated by the IOCS 
as "scratch" tapes.) 



1. SKIP 

2. PROC 

3. REDO 



40151 NRF 

No Record Found, or Disk Storage Circuit Check. 



1. SKIP 

2. PROC 

3. REDO 



40152 ITN 

Invalid Track Number. 



1. SKIP 

2. PROC 

3. REDO 
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Corrective Action 



40153 WLR 

Wrong-Length Record. 



1. SKIP 

2. PROC 

3. REDO 



50112 DCK (I/O Op) (R/L) 

Data Check error condition on a read-tape operation. 
(The IOCS attempted to read the record twenty times, 
but the error persisted.) 



1. RETRY 

2. SKIP 

3. PROC 

4. *SCAN 



60113 DCK (I/O Op) (R/L) 

Data Check error condition on a read -tape operation. 
(The IOCS attempted to read the record twenty times, 
but the error persisted.) 



1. RETRY 

2. SKIP 

3. PROC 

4. *SCAN 

5. DUMP 



RPG Object Program Messages 

In addition to any IOCS messages, the following mes- 
sages can occur during the run of an object program 
produced by the RPG Processor: 



Messages and Explanation 



Corrective Action 



CHAIN ADD ERR 

The chain address is in error. 



Press START to bypass this entire record. 



CTL DATA CHECK 

Control data check error 



Press START to bypass the record. 



INPUT REC OUT OF SEQ 

Data is not in the proper order. 



Sequence the data and restart the object pro- 
gram run. 



RECORD TYPE NOT FOUND 

Data of the type specified for the report is missing. 



Supply the correct data and restart the entire 
object program run. 
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COBOL Object Program Messages 

In addition to any IOCS messages, the following 
messages can occur during the run of an object pro- 
gram produced by the COBOL processor: 

When using ACCEPT FROM CONSOLE WITH 
PRIORITY, the following messages are given: 

1, PRESS INQUIRY RELEASE. 

2. PRESS INQUIRY REQUEST. 

Action: Pressing Inquiry Release will restart 
program; when Press Inquiry Request appears, do 
so, then type in data required and press Inquiry 
Release to restart program. 



FORTRAN Object Program Messages 

ER 1 

With a negative argument in the square root routine, 
the sign is changed to plus prior to taking the square 
root of that floating point number. 

ER 2 

Improper d modifier in floating arithmetic com- 
mand. Exit from that routine. 

ER 00803 

This is an error for invalid exponent in E con- 
version. Record ignored and no data is transferred, 

ER 00804 

Nonexistent tape drive specified; e. g. , specifying 
unit 35. Specification ignored. Halt . Program can- 
not be executed, must recompile. 



ER 11 

Second parameter in MOD is zero. 
Exit from the routine. 

* ADDR 
Field overflow on F or 1 output 

ER 12 

Second parameter in XMOD is zero. 
Exit from the routine. 

Discopen Routine — Error Messages 

ER 00805 

Occurs when there aren't the proper disk read, 
write or find codes in location tape. 

ER 00807 

This error occurs when there is a Define File N2 
error, when there are not enough tracks specified 
for the job or the maximum value of (i) exceeds this 
limit. 

ER 00808 

No track address in the control cards will give this 
message. Actually the base cylinder is missing for 
the specified disk statement. 

Disk Section of I/O Common 

ER 00801 

There is an error in either the Define File Nl 
Section or Zeros in Location 615 to 619 - Address 
supplied by the processor, 

l/O Common Routine 



ER 8 

Invalid log. argument. Exit from log. routine. 

ER 9 

Exponential overflow. Exit from exponential 
routine. 

ER 20 

Argument greater than 999 radians in Sine and 
Cosine routines. 



ER 00802 

Will occur when there is an Invalid Format supplied 
by the Programmer. 

ER 00806 

This is an error in the P Factor section of E Con- 
version. The error states that the P Factor (P) plus 
Decimal (D) is greater than Width (W). 

XFIX Routine 



ER 10 

Argument out of range in XINT, fixed size smaller 
than floating size. Exit from the routine. 



ER 00810 

XFIX message 500> 504 exponent higher than BOP 
size. 
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This Technical Newsletter amends the publication IBM 1410 Processor Operating 
System Using IBM 1301 Disk Storage , Form C28-0287-1, to add an illustration of 
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Change 
The second message should read: 10134 TIE (cu) 



Please file this cover letter at the back of the publication. The letter will provide 
a reference to changes, a method of determining that all changes have been received, 
and a check for determining whether or not the user's publication currently contains 
the proper pages. 



IBM Corporation, Programming Systems Publications, Dept. 637, Neighborhood Road, Kingston, N.Y. 12401 

N27-1215(C28-0287-l) Page 1 of 1 



PRINTED IN U.S.A. 



IBN[ / Technical Newsletter 



File Number 



1410-27 



Re:FormNo. C28-0287-1 

This Newsletter No. N28-11 86 

Date November 9, 1964 

Previous Newsletter Nos. N28-1073 
N28-1147 



IBM 1410 PROCESSOR OPERATING SYSTEM 
USING IBM 1301 DISK STORAGE 

This technical newsletter amends the publication IBM 1410 Processor Operating System 
Using IBM 1301 Disk Storage, Form C28-0287-1, to expand and clarify information 
presently in the manual. 

The attached replacement pages (contents, 5 through 8, 11 through 14, 39 through 42, and 
45 and 46) should be substituted for the corresponding pages currently in the manual. 
Changes on the replacement pages are indicated by a vertical line to the left of the updated 
text or by a dot (•) to the left of figure captions. 

Please file this cover letter at the back of the publication. The letter will provide a ref- 
erence to changes , a method of determining that all changes have been received, and a 
check for determining whether or not the user's publication currently contains the proper 
pages. 



IBM Corporation, Programming Systems Publications, Dept. 637, Neighborhood Road, Kingston, N.Y. 12401 

PRINTED IN U.S.A. N28-1186 (C28-0287-1) Page 1 of 1 



C28-0287-1 



E] 



International Business Machines Corp>oration 

Data Processing Division, 112 East Post Road, White Plains, N. Y. 



